Free for PREMIUM members
Dim myRecordedDate as String
myRecordedDate = nz(dlookup("dtExpire", "tablename"),"Empty")
'insert expiry date if there is none
If myRecordedDate = "Empty" then
CurrentDB.Execute "INSERT INTO yourtablename (dtExpire) SELECT " & chr(34) & format(now(),"dd-mmm-yy") + 30 & chr(34) & ";"
If myRecordedDate>= Now() then
'let em in
Open in new window
The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.
Your question, your audience. Choose who sees your identity—and your question—with question security.