Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Loop all table definitions in Database
Sub exaCheckTableDefs()
    Dim db As Database
    Dim tbl As TableDef
    Set db = CurrentDb
    Debug.Print db.TableDefs.Count
    For Each tbl In db.TableDefs
       Debug.Print tbl.Name & " - " & TypeName(tbl)
    Next
End Sub