Loop through each table in the database referenced 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 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








Related examples in the same category

1.Loop through each table in the database by the CurrentData object
2.Loop through all queries in the database referenced by the CurrentData object.