If Statement Not Working

[DS]

I have this If statement with 3 different conditions, but it doesn't
seem to be working. Is the Syntax wrong?

Private Sub Command27_Click()
On Error GoTo Err_Command27_Click

If Forms!Sales!Guests = Forms!Sales.SalesDetails!Text58 Then
DoCmd.Close
Else
If Forms!Sales!Guests > Forms!Sales.SalesDetails!Text58 Then
DoCmd.OpenForm "NotEnuf"
If Forms!Sales!Guests < Forms!Sales.SalesDetails!Text58 Then
DoCmd.OpenForm "TooMany"
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
End If
End If
End If
End Sub

Thanks
DS

 

[Reg]

DS,

Your procedure needs to look like this:

Private Sub Command27_Click()
On Error GoTo Err_Command27_Click

If Forms!Sales!Guests = Forms!Sales.SalesDetails!Text58 Then
DoCmd.Close
ElseIf Forms!Sales!Guests > Forms!Sales.SalesDetails!Text58 Then
DoCmd.OpenForm "NotEnuf"
ElseIf Forms!Sales!Guests < Forms!Sales.SalesDetails!Text58 Then
DoCmd.OpenForm "TooMany"
End If

Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click

End Sub


Reg

 

[DS]

DS,

Your procedure needs to look like this:

Private Sub Command27_Click()
On Error GoTo Err_Command27_Click

If Forms!Sales!Guests = Forms!Sales.SalesDetails!Text58 Then
DoCmd.Close
ElseIf Forms!Sales!Guests > Forms!Sales.SalesDetails!Text58 Then
DoCmd.OpenForm "NotEnuf"
ElseIf Forms!Sales!Guests < Forms!Sales.SalesDetails!Text58 Then
DoCmd.OpenForm "TooMany"
End If

Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click

End Sub


Reg

Your're Good. That worked Great!!!
Thank You. You saved me from another painful afternoon!
DS