ник: osmor
Получить список всех пропертей документа можно так
Public Function propdb()
On Error Resume Next
Dim db As DAO.Database
Dim pr As DAO.Property
Dim doc As Document
Set db = CurrentDb
Set doc = db.Containers("databases").Documents(0)
For Each pr In doc.Properties
Debug.Print pr.Name, pr.Value
Next
End Function
|
Так же можно создать свое свойство
см. Help по CreateProperty