Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Loop through all queries in the database referenced by the CurrentData object

Sub IterateAllQueries()     Dim vnt As Variant     With CurrentData         For Each vnt In .AllQueries             'Print the name of the table             Debug.Print vnt.Name         Next vnt     End With End Sub