Easiest way to create save changes before closing a from.

[kkgusta]

Hi there,
Is anyone here know the easiest way to create a save changes before closing an unbound from. Like when you are in an edit or add new mode and you choose to close the form and a message box will pop up and prompt user to save the change before it close the form. Currently I am trying to add a long list of code in all closing event in my forms and this have causing me a lot of trouble and time consuming. Therefore I am trying to look for a better way to do this.

 

[Remou]

Have you seen?
KISS way to force users to click a command button to exit a form regardless of menu or toolbar options
faq702-2071

 

[mp9]

Something like this in the form's BeforeUpdate event works well for bound forms. You may be able to adapt it for unbound.

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Select Case MsgBox("Do you want to save changes to this record?", vbYesNoCancel + vbQuestion)
    Case vbYes 'Go-ahead and save
        'Don't have to do anything
    Case vbNo 'Undo all changes, close without saving
        Me.Undo
    Case Else 'Cancel change, continue editing
        Cancel = True
    End Select
End Sub

http://www22.brinkster.com/accessory/