How to undo or prevent a record save from a cancel button?

[Jovalle]

How do you prevent a form from automatically saving a record or at least invoking an undo function from a cancel button, as oppose to invoking it from the Access Menu - Edit > Undo Current Field/Record? This while adding a new record, and not editing an existing one. I'm using Access 2000 running on Win 98. I would appreciate some feedback on any script that does the function.

 

[Pat Hartman]

You can stop the automatic save by putting code in the BeforeUpdate event of the form. Do whatever tests you need or pop up a confirm message. Then if you determine you need to prevent the update use the following statement to cancel the update.
Cancel = True
This will leave the form in its changed state but will not save the record. If you want to totally back out the changes as well, then also add:
Me.Undo

 

[Jovalle]

Thanks Pat,
I got the Cancel=True to work from the BeforeUpdate event of the subform.. however I need to ask you now on how to get the subform to update from an OK or Save button in the main form.. I tried a couple of methods including a boolean that is designed to control the flow of the script in the BeforeUpdate, but all apparently are being ignored and doesn't allow to save anything in the subform. Again, thanks in advance for any suggestions that you can offer.

 

[Carol]

Make a command button on your main form and call it save. Put the following code in its On Click Properties:
Private Sub Save_Click()
On Error GoTo Err_Save_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Save_Click:
Exit Sub

Err_Save_Click:
MsgBox Err.Description
Resume Exit_Save_Click

End Sub