Mega Code Archive

 

Categories / VisualBasic Script / Access

 

List table properties

Sub exaProperties()     Dim db As Database     Dim tbl As TableDef     Dim prp As Property           Set db = CurrentDb     Set tbl = db!Employees     For Each prp In tbl.Properties        Debug.Print prp.Name        Debug.Print prp.Value        Debug.Print prp.Type        Debug.Print prp.Inherited           Next prp     Debug.Print tbl.Properties.Count  End Sub