Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- For Each Item In Me.lstPilotDocIssues.ItemsSelected
- lngEntityID = Me.lstPilotDocIssues.Column(0)
- Next Item
- OpenFile CurrentProject.Path & "Entity." & CurrentFileExtension
- Form_frmMain.chdMain.Form.Filter = "fldEntityid=" & lngEntityID
- Form_frmMain.chdMain.Form.FilterOn = True
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement