Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Loop through each table in the database referenced by the CurrentData object

Public Sub GetDates()     Dim vnt As Variant     With CurrentData         For Each vnt In .AllTables             Debug.Print vnt.Name & ", " & vnt.DateCreated & ", " & vnt.DateModified         Next vnt     End With End Sub