Hit "cancel", but record still creates.

[TAM]

When I launch my modal, I want the user to be able to 'cancel' without creating a new record. It's not doing that and creating extra 'junk' in my table. How do I prevent that?



Here's my code:
Private Sub Btn_Exception_SubModal_Click()
DoCmd.OpenForm "Frm_Exception_UpdateModal", acNormal, , acFormAdd

Forms! [Frm_Exception_UpdateModal]![clientnmbr].value = Me![clientnmbr].value
End Sub

[ranman256]

the cancel has to be in the record form_BeforeUpdate event
THEN the cancel = true , will cancel the save.

[TAM]

Thanks for the quick reply! I'm not familiar as to where to find the "form_BeforeUpdate" event. I don't see it in the design view property sheet choice of events. Can you coach me on how to add this to my code, please?

[TAM]

Sorry - found this event on the subform. What specifically should I add for the code builder?

[ranman256]

sub form_BeforeUpdate(cancel)

if "record is wrong by your reasons" then
   cancel = true 
endif

[TAM]

To clarify -- I added "cancel = true", but I want to control the error message that displays. How do I over-ride the message "You can't save this record at this time. Adjustments may have encountered an error while trying to save a record. If you close this object now, the data changes you made will be lost. Do you want to close the database object anyway?". I'd like to display a custom message more meaningful to the user.

Thanks again for your help! I'm a beginner, so it takes me a bit!

[nick404]

Place this on your BeforeUpdate or wherever the error message is displaying from.

Sub Form_BeforeUpdate(Cancel as Integer) -- OR somewhere else 
On Error GoTo err_proc

-your code-

err_proc:
MsgBox "Your message text to user", vbYesNo, "Message Title"
Exit Sub

End Sub

link to more on message boxes.