Macro using 'date' (current system date)

[msmithtlh]

I have several if statements checking the dates entered against each other (there is a logical progression, where, for example, a record cannot be completed before it is received. Also, I check against the system date to make sure the user doesn't enter a future date.


I use the following code on the before update event, and it works perfectly.
Private Sub DateReceived_BeforeUpdate(Cancel As Integer)
If DateReceived > Date Then
MsgBox "Date Received cannot be in the future"
Cancel = True
End If
End Sub

But when I try to put the same logic in a macro to run prior to saving, I get an error message
"Quality Review Database cannot find the name 'Date' you entered in the expression."



Is there different syntax when referring to the system date within a macro?

[June7]

Would have to review the macro settings. Are you use Date() in the macro?

If you have functional VBA why change to macro? I don't use macros.

[cactuspete13]

Try using "DateReceived > Date (Now())" That should tell it to check the date entered in the DateReceived block and compare it to the current date, instead of looking for a field labeled Date.

[June7]

Date() and Now() are functions that don't have arguments. The nesting errors.

I am testing calling system date in a macro. Trying to simply have MsgBox show it. It just treats the Date() function as a string. So I tested an If Then Else using Date() compared to a static value and have message box return True or False. That works.

Include the ().

VBA so much easier.

[msmithtlh]

Using the () was what I was missing. Thanks.