MsgBox, Save Changes, yes/no

[Greyowlsl]

Hi,

I have a save button on a form. I need a piece of code so that when the user clicks the button the the command for that button will pause and bring up a textbox asking if they are sure they want to save changes. If they click yes then the code is unpaused and continues, if they click no then the code is stopped and the click command ignored.

This is the code i have for the button:

Private Sub Command44_Click()
'Save command:
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'Refresh command:
    DoCmd.Close
    DoCmd.OpenForm "frmPCB"
End Sub

Thanks for your help,

Leon

 

[AN60]

Put this in the form's BeforeUpdate Event. Each time you change data on your form it should fire up & ask you if you want to save the record (data).
Good luck.

If MsgBox("Save Record Now?", vbYesNo, "Confirm Save") = vbYes Then
Else
Me.Undo
End If

 

[Greyowlsl]

Hey it worked, thanks.