Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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