VBA in Before Update Event

[data808]

Had this code to a Before Update Event. How do I get something like this to work on a On Click Button Event?



Private Sub Form_BeforeUpdate(Cancel As Integer)

'Provide the user with the option to save/undo
'changes made to the record in the form

If MsgBox("Changes have been made to this record." _
& vbCrLf & vbCrLf & "Do you want to save these changes?" _
, vbYesNo, "Changes Made...") = vbYes Then
DoCmd.Save
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub

[June7]

Did you try that code in the button Click event?

The BeforeUpdate event should not have DoCmd.Save because that is command to save the form, not save data; also, the record save should have already been initiated.

The BeforeUpdate event should have Cancel = True in the Else.