Access VisualBasic Script

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