Improve company productivity with a Business Account.Sign Up
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
Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.