We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|SQL Query logic question||14||71|
|Could someone write me an SQL query for MS Access?||4||33|
|Convert MS Access Excel Routine to Late Binding||6||26|
|Using VBA and form selections to append an Access Table - And error 3134||4||16|
Join the community of 500,000 technology professionals and ask your questions.