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