Quitter un enregistrement sans l'enregistrer

Private Sub Form_BeforeUpdate(Cancel As Integer)

If MsgBox("L'enregistrement a été modifié. Voulez-vous sauvegarder les modifications", vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then

Me.Undo 'Annule les modifications

Cancel = False

End If

End Sub