获取 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

在名为"UserDefined">的DAO.Document中查找自定义属性，该属性包含在"数据库">容器中。

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