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