Prob with Msg after cancel beforeupdate?

[pafcpilgrim]

I have pasted the code that SJ posted on another thread that any changes to a record will ask the user to save before closing the form, this located in the beforeupdate event.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Save changes?", vbQuestion + vbYesNo) = vbNo Then Cancel = True
End Sub

The problem i am getting is that if the user selects no it pops up another message saying "You can't save the record at this time" followed by a description.
How do i prevent this second message appearing i cannot find a thread with this in?

Thanks as always

Mike

 

[MStef]

Hello Mike!
Look at "DemoFormErrA97.mdb"
MStef alias Štef