Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Reference TableDefs from DBEngine
Sub temp()
    Dim db As Database
    Set db = DBEngine(0)(0)
    Debug.Print "Table count: " & db.TableDefs.Count
End Sub