daily pastebin goal
26%
SHARE
TWEET

Untitled

a guest Jan 19th, 2018 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub QueryList()
  2. Dim qdf As QueryDef
  3.  
  4. For Each qdf In CurrentDb.QueryDefs
  5. If Left(qdf.Name, 1) <"~" Then
  6. Debug.Print qdf.Name
  7. End If
  8. Next qdf
  9. MsgBox "Done"
  10. End Sub
RAW Paste Data
Top