Спасибо Анатолий!
Все получилось.

хочу сформировать в EXCEL все, что вывожу в msgbox. Давно не делала и забыла как проще

Проще - записать всё это в текстовый файл. Потом этот файл можно открыть в EXCEL и сохранить в нужном формате.
Можно, конечно, и с помощью автоматизации создать файл EXCEL и накидать инфу на лист

я написала так
Dim t As DAO.TableDef
Dim f As DAO.Field
On Error Resume Next ' для пропуска ошибок по тем полям где нет f.Properties("Display Control")
For Each t In CurrentDb.TableDefs
If (t.Attributes And dbSystemObject) = False Then
For Each f In t.Fields
If f.Properties("DisplayControl") = 111 Then

If f.Properties("Rowsource") <> "" Then
MsgBox (t.Name & " " & f.Name & " " & "" & f.Properties("Rowsource"))
End If
End If
Next f
End If
Next t
работает , но хочу сформировать в EXCEL все, что вывожу в msgbox. Давно не делала и забыла как проще- информация поместится на одном листе.

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

спасибо! Попробую. Нет ли примера на Vba

Цикл по таблицам в TableDefs - цикл по полям каждой таблицы - для полей с типом "Числовой" и "Текстовый" проверка значения свойства DisplayControl. Если значение acComboBox (111) - поле с подстановкой.

Для документирования нужно автоматически выбрать во всех таблицах базы mdb поля имеющие подстановку. Можно ли выбрать только эти поля и перекинуть в excel c учетом имени таблицы имени поля и значения поля подстановки.В архивариусе громоздко. В schemamdb этого свойства поля нет а жаль...