Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.
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.
Join the community of 500,000 technology professionals and ask your questions.