Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Victor
>currentdb.Containers("databases").Documents("SummaryInfo").Properties("Company")
>Но если поле не заполнено, то свойства нет.

Все верно.
Вот это работает.

Sub DocumentProperties()     On Error Resume Next     Dim db As Database     Dim ctr As Container     Dim doc As Document     Dim prp As Property          Set db = CurrentDb     Set ctr = db.Containers!Databases     Set doc = ctr.Documents!SummaryInfo          With doc         Set prp = .CreateProperty("Author", dbText, "Author")         .Properties.Append prp         Set prp = .CreateProperty("Company", dbText, "Universe")         .Properties.Append prp         Set prp = .CreateProperty("Hyperlink Base", dbText, "http://www.universe.com")         .Properties.Append prp              .Properties("Author") = "Author"         .Properties("Company") = "Universe"         .Properties("Hyperlink Base") = "http://www.universe.com"         .Properties("Title") = "Salvation"                  Debug.Print .Properties("Author")         Debug.Print .Properties("Company")         Debug.Print .Properties("Hyperlink Base")         Debug.Print .Properties("Title")     End With     Set db = Nothing End Sub

И вот что писали об этом MS (ведь переводили же когда-то они и на русский язык):

Объект Document SummaryInfo обеспечивает доступ в программах к свойствам, содержащим общие сведения о документе, в том числе, Title (Название), Subject (Тема), Author (Автор),  Keywords (Ключевые слова), Comments (Заметки), Manager (Должность), Company  (Организация), Category (Группа) и Hyperlink Base (База гиперссылки). Значения всех этих  свойств могут быть также заданы на вкладке Документ в диалоговом окне Свойства: база  данных, которое открывается командой Свойства в меню Файл. Для того чтобы задать значения этих свойств в программе Visual Basic, необходимо  предварительно создать эти свойства и добавить их в семейство Properties объекта  Document SummaryInfo, если эти свойства ранее не были определены в диалоговом окне  Свойства: база данных. После создания этих свойств становятся возможными явные ссылки  на них через семейство Properties. В следующем примере переменная doc является  объектной переменной, представляющей объект Document SummaryInfo.