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