Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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