Creating Properties

[ashley25]

I am trying to create a property through the following code

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

I have created the following to store the LastRefreshedDate and then present this on a user form via a caption label, however, its not working, any ideas?

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

 

[ashley25]

I was missing the append element when creating the property, all fixed now.

CurrentDb.Properties.Append prp