将 DAO 属性添加到数据库答案

【问题标题】：Adding a DAO Property to a database将 DAO 属性添加到数据库
【发布时间】：2014-07-11 01:59:39
【问题描述】：

我正在尝试通过以下代码创建属性：

Public Sub refresh()
    Dim prp As DAO.Property
    Set prp = CurrentDb.CreateProperty("LastRefreshedDate", dbDate, Date)
End Sub

我在构建过程中创建了以下内容来存储 LastRefreshedDate，然后通过标题标签将其显示在用户表单上，但是，该属性未显示。

' Store refresh date
CurrentDb.Properties("LastRefreshedDate") = Date
lblRefresh.Caption = "Last Refreshed: " & Format(CurrentDb.Properties("LastRefreshedDate"), " dd mmm yyyy")

【问题讨论】：

什么是“不工作”？
我试图创建的属性没有被创建，不知道为什么。
我缺少 db.Properties.Append prp
请提供您的解决方案作为答案，以便您可以接受，以便将来的读者清楚。

标签： ms-access vba dao

【解决方案1】：

“我忘记将属性附加到CurrentDb。”

正确代码：

Public Sub refresh()
    Dim prp As DAO.Property
    Set prp = CurrentDb.CreateProperty("LastRefreshedDate", dbDate, Date)
    ' property has to be appended after it is created.
    Currentdb.Properties.Append prp
End Sub

MSDN documentation on the DAO.Properties collection.

【讨论】：

免责声明： OP 用他的答案而不是答案更新了他的问题。我已经把它贴在这里给他了。我添加了参考。