Advertisement
Guest User

Untitled

a guest
Feb 6th, 2016
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. For Each Item In Me.lstPilotDocIssues.ItemsSelected
  2.  
  3. lngEntityID = Me.lstPilotDocIssues.Column(0)
  4.  
  5. Next Item
  6.  
  7. OpenFile CurrentProject.Path & "Entity." & CurrentFileExtension
  8.  
  9. Form_frmMain.chdMain.Form.Filter = "fldEntityid=" & lngEntityID
  10. Form_frmMain.chdMain.Form.FilterOn = True
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement