Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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