Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Check table definition
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 & vbTab & TypeName(tbl)
    Next
End Sub