VBA Programming

[Leeselson]

This Routine works on my machine running XP but not on my machine running Windows 7. Both machines are running Access 2007. Any Ideas why it won't work on the Windows 7 machine ?



Private Sub EndDate_GotFocus()
If [StartDate] < "03/23/2012" Then
MsgBox " The Date Must Be Greater Than 03/22/2012"
StartDate.SetFocus
End If
End Sub

[Jester0001]

Is there an error that comes up when the code is run? Is the file located in a Trusted Location? Make sure the file is located in a Trusted Location in Win7, otherwise it will prevent code from running. Check the link below for more info.

http://msdn.microsoft.com/en-us/libr...ice.12%29.aspx

[orange]

If startdate is a dateTime datatype, perhaps you should use
If [StartDate] < #03/23/2012#

[Leeselson]

If startdate is a dateTime datatype, perhaps you should use
If [StartDate] < #03/23/2012#

Orange:

That was the answer. I so appreciate your help. I am writing this database in Access 2007 that is why I used the default 2007 type. I would not have picked up on that as the solution.

[orange]

Dates are enclosed in #myDate#
Text is enclosed in "myTextfld"

Good luck with your project