Date Range with Error Message Box

[Huddle]

I have a Pop Up Form to enter a date range. I want the date range to come up blank so I'm doing the following

On load

Me.StartDate = ""
Me.EndDate = ""



If they enter an end date that is before the start date I want an error msg box to come up. I have the expression but don't know how to write it in VBA

=IIf([EndDate]<[StartDate],MsgBox("The Ending Date cannot be before the Begining Date",0,"ERROR"))

I want it to clear the end date field after the error message is closed. Don't know how to do that.

Then I will have a command button that will take them to the report.

On Click will be Me.Visible = False

The Report will close the pop up form.

A little help would be appreciated.

[jzwp11]

I would probably put the date validation in the code behind the on click event of the button along with opening the report. The code would go something like this:

If Me.EndDate < Me.StartDate Then
  MsgBox "The Ending Date cannot be before the Beginning Date", 0, "Error"
  
  Me.EndDate = Null
  Me.EndDate.SetFocus
  Exit Sub
End If
DoCmd.OpenReport "reportname"
DoCmd.Close acForm, "yourform"

BTW, the Me.Visible = False only hides the form; it does not close the form.

[Huddle]

I'll have to have the Me.Visible to run some calculations. I'll close the form when I close the report. I'll work on your code and let you know how it goes. Thanks so much.

[jzwp11]

You're welcome

[Huddle]

That worked great. Thanks!