Loop through each table in the database by the CurrentData object : CurrentData « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. CurrentData

Loop through each table in the database by the CurrentData object

 
Sub IterateAllTables()
    Dim vnt As Variant

    With CurrentData
        For Each vnt In .AllTables
            'Print the name of the table
            Debug.Print vnt.Name
        Next vnt
    End With
End Sub

 

Related examples in the same category