Date Check with If Statement

[Guest]

Hello,

I am trying to write some code that will have Access close the current dbase
that is open as well as exit the application.

I need some code that basically says if today’s date in before May 1, 2005
do nothing if it is May 1, 2005 or later close every thing down. Would the
following statement accomplish this?

Function Datecheck()

If Date() >= “05/01/2005†Then
DoCmd.Quit
End If

End Function

 

[Douglas J. Steele]

Dates in VBA need to be delimited with # characters, not quotes.

Function Datecheck()

If Date() >= #05/01/2005# Then
DoCmd.Quit
End If

End Function

 

[Guest]

Thanks.

Dates in VBA need to be delimited with # characters, not quotes.

Function Datecheck()

If Date() >= #05/01/2005# Then
DoCmd.Quit
End If

End Function

 

[Graham R Seach]

I sure hope you have a "backdoor" in there somewhere.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia