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