Submit button will only work for half the options in a combo box

[sschmidt460]

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
 

[sschmidt460]

so in the combo box I have the options "requisitions" and "inventory". the submit button works for the requisitions option and opens the date form, but it does not perform the action and go to the "equipment inventory report" when i click on "inventory

[jforbes]

Is [Equipment Combo] blank?

You might want to put something like the following to see if it is falling through your code without doing anything:

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
         Else
             MsgBox "Please fill provide the Equipment Something.", vbExclamation, "Attention"
         End If
     End If
 End If
 End Sub
 

[sschmidt460]

I added that code and when I clicked the "submit button, that msgBox did pop up. How do I fix it so that it will link the equipment in the box. I am selecting a piece of equipment in the previous form and its working for the "requisitions" option of the combo box, but not the 'inventory"

[jforbes]

I'm not really sure what you are attempting to do, so this is my best guess. My guess is that the test for an [Equipment Combo] selection is backwards, so I would swap the sign (or swap the code).

Swapping Sign:

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 Nz([Forms]![Report Form]![Equipment Combo], "") <> "" Then
              DoCmd.OpenReport "Equipment Inventory Report", acViewPreview
          Else
              MsgBox "Please fill provide the Equipment Something.", vbExclamation, "Attention"
          End If
      End If
  End If
  End Sub

Or, Swapping 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
              MsgBox "Please fill provide the Equipment Something.", vbExclamation, "Attention"
          Else
              DoCmd.OpenReport "Equipment Inventory Report", acViewPreview
          End If
      End If
  End If
  End Sub