Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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