Sub TestDisplayControl()
Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field, prp As DAO.Property
Set db = CurrentDb
For Each tdf In db.TableDefs
If Left(tdf.Name, 1) = "~" Then GoTo NextTable
For Each fld In tdf.Fields
For Each prp In fld.Properties
If prp.Name = "DisplayControl" Then
If prp.Value = acComboBox Then
Debug.Print tdf.Name; Tab; fld.Name
End If
End If
Next prp
Next fld
NextTable:
Next tdf
End Sub
|