Ok, I have a nested If statement which decides what to do depending on the selection of a combo box.
For some reason, the DoCmd.OpenForm isn't working. I was hoping someone could let me know why.
Code:
Private Sub btnEvalSave_Click()
If IsNull(Me.cmbDisposition) Then
If Me.Warranty = "Yes" Then
Me.Unit_Status = "A"
Else: Me.Unit_Status = "E"
DoCmd.OpenReport "rptQuote", acViewNormal
End If
Else
If Me.cmbDisposition = "SFR" Then
Me.Unit_Status = "S"
DoCmd.OpenForm "frmHours", acNormal
Else
End If
If Me.cmbDisposition = "RNS" Then
Me.Unit_Status = "R"
DoCmd.OpenForm "frmHours", acNormal
Else
End If
If Me.cmbDisposition = "BER" Then
Me.Unit_Status = "E"
DoCmd.OpenReport "rptBERQuote", acViewNormal
Else
End If
If Me.cmbDisposition = "NPF" Then
Me.Unit_Status = "R"
DoCmd.OpenForm "frmHours", acNormal
End If
End If
DoCmd.Save
DoCmd.Close
End Sub
Thanks