Message box code HELP!

[Guest]

I have a message box coded on a before update event. I need to know how to
change this code so if the users response is no the record/input will be
removed so the user can return to the switchboard to look up the order number
in another form.
The ordernumber is a required field so it will not allow the user to back
out without inputting something at this point.

Here is the current code.

Private Sub ordernumber_BeforeUpdate(Cancel As Integer)
If DLookup("ordernumber", "qry ordernumbers", "ordernumber=" &
ordernumber.Value) Then
Cancel = (MsgBox("Duplicate Order, Do you want to Proceed?", vbQuestion +
vbYesNo)) = vbNo
If Cancel = 0 Then
Me!duplicate = True


End If
End If
End Sub

Please HELP!
Barry

 

[Guest]

Try something like this:

Dim intResponse as Integer

intResponse = MsgBox("Duplicate Order, Do you want to Proceed?", vbQuestion +
vbYesNo)

If intResponse = vbNo Then
Cancel = True
End If


Note that vbYesNo returns 7 when the No button is clicked, not 0.


Tom Wickerath
Microsoft Access MVP

http://www.access.qbuilt.com/html/expert_contributors.html
http://www.access.qbuilt.com/html/search.html
__________________________________________

 

[Guest]

Tom Thanks for the help on this.

The Dim intresponse has me moving in the right direction.

However my problem continues to be that the form will not allow the user to
return to the switchboard after clicking No on the message box, without
completeing an entry. The user will need to go to another form to search for
the duplicate order number.

Is there a way to have the record they were inputing deleted so they can
exscape the form they were in without a record entry?

Barry

 

[Guest]

Hi Barry,

Try issuing a Me.Undo statement to undo any edits to a new record. You'll
likely need to follow this up with:

Me.Undo '<---Undo edits to new record
DoCmd.Openform "frmSwitchboard" '<---Substitute correct name
DoCmd.Close acForm, Me.Name '<---to close the form.


Tom Wickerath
Microsoft Access MVP

http://www.access.qbuilt.com/html/expert_contributors.html
http://www.access.qbuilt.com/html/search.html
__________________________________________

 

[Guest]

Thank you for the Direction Tom, I found the code I needed for the delete.

Below is the Code that accomplished this for any future readers of this post.

Private Sub ordernumber_BeforeUpdate(Cancel As Integer)
Dim intResponse As Integer
intResponse = MsgBox("Duplicate Order,Do you want to Proceed?", vbQuestion +
vbYesNo)
If intResponse = vbYes Then
Me!duplicate = True
Else
Cancel = True
If Me.Dirty Then
Me.Undo
End If
End If
End Sub


Thanks Again Tom!