Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Reference TableDefs from DBEngine

Sub temp()     Dim db As Database     Set db = DBEngine(0)(0)     Debug.Print "Table count: " & db.TableDefs.Count End Sub