What did I do wrong?

[rgreene]

Private Sub Combo2_AfterUpdate()

If Me.Category = "Vehicle" Then
DoCmd.OpenForm "frmVehicle"

ElseIf Me.Category = "Vehicle Parts" Then
DoCmd.OpenForm "frmVehicle"

Else
DoCmd.OpenForm "frmEverything"

End If


End Sub

If my category is either Vehicle or Vehicle parts then open form frmVehicle. If the category is anythine else then open form frmeverything.

 

[Jerry Stoner]

I may be wrong here but...

You are trying to change form based on selection in Combo2 Right??

Private Sub Combo2_AfterUpdate()

If Me.Combo2 = "Vehicle" Then
DoCmd.OpenForm "frmVehicle"
Else
If Me.Combo2 = "Vehicle Parts" Then
DoCmd.OpenForm "frmVehicle"
End If
Else
DoCmd.OpenForm "frmEverything"

End If
End Sub