Code:
Private Sub Submit_Button_Click()
If IsNull(Me.Type_Text) Or Me.Type_Text = "" Then
MsgBox "Please select criteria for Report Type.", vbExclamation, "Attention"
Else
If Me.Type_Text = "Requisitions" Then
DoCmd.OpenForm "Date Form"
Else
If [Forms]![Report Form]![Equipment Combo] = "" Then
DoCmd.OpenReport "Equipment Inventory Report", acViewPreview
End If
End If
End If
End Sub
Comment