Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.
Private Sub cmdOpenFolder_Click() Dim db As Database Dim rs As Recordset Dim WindowState As Integer Dim mypath As String Set db = CurrentDb Set rs = db.OpenRecordset("select distinct Path from tblPictures where [JobID]=" & Me.JobID & ";", dbOpenDynaset, dbSeeChanges) 'Bail on an empty recordset If (rs.EOF And rs.BOF) = False Then rs.MoveFirst If rs.RecordCount > 1 Then WindowState = vbNormalNoFocus Else WindowState = vbMaximizedFocus End If Do While rs.EOF = False Shell "explorer.exe " & Chr(34) & rs!Path & Chr(34), WindowState mypath = rs!Path rs.MoveNext Loop End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Using Case or If statement in Select statement, result is a string. Need a number.||4||46|
|Format as currecy for just the one current record||2||21|
|Created a Access database that I am running as accde not turning off warning even though I asked it to.||14||42|
|MS Access How can I complete my Max, Group by query?||13||25|