获取vba中的自定义数据库属性

Question

在ms-access-2016文件菜单的信息部分，有一个指向查看和编辑数据库属性的链接。当点击链接时，框中会出现5个选项卡，其中最右边的是自定义。此选项卡提供一个用户界面，用于向数据库文档添加自定义属性。

我通过添加一个名为"ask“的布尔属性来测试这一点。它工作得很好；它节省下来；它在退出和重新启动之后就回来了。现在我想访问vba中的属性。

我已经用以下代码枚举了数据库属性：

Public Sub paEnumerateDatabaseProperties()
    Dim db As DAO.Database
    Dim prp As Property
    Set db = CurrentDb
    For Each prp In db.Properties
        On Error Resume Next
        Debug.Print prp.Name, prp.value, prp.Type
       If Err.Number <> 0 Then Debug.Print "Error: "; Err.Number, prp.Name
    Next prp
    Set prp = Nothing
    Set db = Nothing
End Sub 

运行此代码将创建db.properties集合中52个属性中的51个列表和connections属性的一个错误。但我的自定义Ask属性不在此集合中。它也不在应用程序选项集合中。

有人知道它藏在哪里吗？谢谢

Answer 1

在“数据库”容器中包含的名为“DAO.Document”的UserDefined中查找您的自定义属性。

'For Each prp In db.Properties
For Each prp In db.Containers("Databases").Documents("UserDefined").Properties