Question

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

我通过添加一个名为“ ask”的布尔属性对此进行了测试。效果很好；它节省；退出并重新启动后会返回。现在，我要访问vba中的属性。

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

$data | ForEach-Object {
    $_.enrollmentID
} | Group-Object PersonID | ForEach-Object {
    $_.Group | Sort-Object enrollmentID | Select-Object -First 1
}

运行此代码将在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

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

1 个答案: