ник: час
А вот анатолий что говорит на этот счёт
Вопрос: В меню [Файл]/[Свойства базы данных], есть много полей (например, на закладке Документ: Название, Тема и т.п.). Как их прочитать программно?
Совет:
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Title")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Subject")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Author")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Manager")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Company")
Но если поле не заполнено, то свойства нет.
Serge_Gavrilov
Sub DocumentProperties()
On Error Resume Next
Dim db As Object 'Это что бы не использовать библиотеку DAO, иначе Dim db As Database
Set db = CurrentDb
With db.Containers("databases").Documents("SummaryInfo")
Debug.Print .Properties("Title")
Debug.Print .Properties("Subject")
Debug.Print .Properties("Author")
Debug.Print .Properties("Manager")
Debug.Print .Properties("Company")
End With
Set db = Nothing
End Sub