| |
|
|
| | Для документирования нужно автоматически выбрать во всех таблицах базы mdb поля имеющие подстановку. Можно ли выбрать только эти поля и перекинуть в excel c учетом имени таблицы имени поля и значения поля подстановки.В архивариусе громоздко. В schemamdb этого свойства поля нет а жаль... | |
| |
| |
| |
|
|
| | Цикл по таблицам в TableDefs - цикл по полям каждой таблицы - для полей с типом "Числовой" и "Текстовый" проверка значения свойства DisplayControl. Если значение acComboBox (111) - поле с подстановкой. | |
| |
| |
| |
|
|
| | спасибо! Попробую. Нет ли примера на Vba | |
| |
| |
| |
|
|
| |
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
|
| |
| |
| |
| |
|
|
| | я написала так
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. Давно не делала и забыла как проще- информация поместится на одном листе. | |
| |
| |
| |
|
|
| |
хочу сформировать в EXCEL все, что вывожу в msgbox. Давно не делала и забыла как проще
|
Проще - записать всё это в текстовый файл. Потом этот файл можно открыть в EXCEL и сохранить в нужном формате.
Можно, конечно, и с помощью автоматизации создать файл EXCEL и накидать инфу на лист | |
| |
| |
| |
|
|
| | Спасибо Анатолий!
Все получилось. | |
| |
| |
