Dim Ct As Long
Dim hod As Container
Dim MyDB As Database
Dim docLoop As Document
Dim MyTbl As TableDef
Dim MyQuer As QueryDef
Dim MyAtr As Variant
Dim MyName As String
Dim MyRst As Recordset
Dim MyPr As Property
Set MyDB = CurrentDb
      Set docLoop = MyDB.Containers!Databases.Documents!UserDefined  ' вот такое чудное сочетание 
      For Each MyPr In docLoop.Properties
          Debug.Print MyPr.Name; "  "; MyPr.Value
      Next MyPr
On Error GoTo gen  ' если allы нет сделаем 
Set MyPr = docLoop.Properties![alla]  ' квадратные скобки на случай пробелов или русских букв 
Debug.Print MyPr.Name; "  "; MyPr.Value

Exit Sub
gen:
Set MyPr = docLoop.CreateProperty("alla", dbText, "31415")
docLoop.Properties.Append MyPr
docLoop.Properties.Refresh
Set MyPr = Nothing
Resume  ' сделав allу вернулись на следующую за On error строку 

Debug.Print FileDateTime(CurrentDb.Name)