If Statement Criteria Needed for form

[burrina]

Don't know why this is not working; What am I getting wrong?
It stops at OrderEntrymsgbox

If IsNull([BeginningOrderDate]) Or IsNull([EndingOrderDate]) Then
MsgBox "You must enter both beginning and ending dates."
DoCmd.GoToControl "BeginningOrderDate"
Else
If [BeginningOrderDate] > [EndingOrderDate] Then
MsgBox "Ending date must be greater than Beginning date."
DoCmd.GoToControl "BeginningOrderDate"
Else
Me.Visible = False
End If

If IsNull([BeginningOrderDate]) Or IsNull([EndingOrderDate]) Then
OrderEntrymsgbox = MsgBox("Preview Report Witn NO Date(s)?", vbInformation + vbYesNo, "ReportList")

If (OrderEntrymsgbox = vbYes) Then
DoCmd.SetWarnings False
DoCmd.OpenReport Me.List2, acViewPreview


DoCmd.Close acForm, Me.Name
End Sub

[June7]

I am surprised it runs at all. Missing End If lines and the first Else needs to be ElseIf.

If IsNull([BeginningOrderDate]) Or IsNull([EndingOrderDate]) Then
   MsgBox "You must enter both beginning and ending dates."
   DoCmd.GoToControl "BeginningOrderDate"
ElseIf [BeginningOrderDate] > [EndingOrderDate] Then
   MsgBox "Ending date must be greater than Beginning date."
   DoCmd.GoToControl "BeginningOrderDate"
Else
   Me.Visible = False
   If IsNull([BeginningOrderDate]) Or IsNull([EndingOrderDate]) Then
      OrderEntrymsgbox = MsgBox("Preview Report Witn NO Date(s)?", vbInformation + vbYesNo, "ReportList")
  End If
   If (OrderEntrymsgbox = vbYes) Then
      DoCmd.SetWarnings False
      DoCmd.OpenReport Me.List2, acViewPreview
      DoCmd.Close acForm, Me.Name
  End If
End If
End Sub

I have never used GoToControl. If it doesn't work try SetFocus:
Me.BeginningOrderDate.SetFocus

[burrina]

It says variable not defined ?

[June7]

You have Option Explicit in the module header?

If so, must declare all variables with a DIM statement.

Alternative code that doesn't require that variable:

Else
   Me.Visible = False
   If IsNull([BeginningOrderDate]) Or IsNull([EndingOrderDate]) Then
      If MsgBox("Preview Report Witn NO Date(s)?", vbInformation + vbYesNo, "ReportList") = vbYes Then
         DoCmd.SetWarnings False
         DoCmd.OpenReport Me.List2, acViewPreview
         DoCmd.Close acForm, Me.Name
      End If

[burrina]

Thanks, that worked.