ник: ludmil
я написала так
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. Давно не делала и забыла как проще- информация поместится на одном листе.