ne pas sauvegarder en quittant un formulaire [Résolu]

[orfeu]

Bonjour,

Quelqu'un sait si il est possible de ne pas sauvegarder l'enregistrement actuel d'un formulaire en le quittant?

Merci d'avance

[ClaudeLELOUP]

Bonjour,

Essaie la touche <esc>

[jeanpierre78]

Bonsoir,

Je place le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
' Confirmation de la sauvegarde
    Dim strMsg As String, strTitre As String, strRep As String
    strMsg = "Les donnés ont changé." & vbCrLf & " " & vbCrLf & "Voulez-vous les sauvegarder ?"
    strTitre = "Sauvegarde"
    strRep = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTitre)
 
    If strRep = vbNo Then
            Cancel = True
            Me.Undo
        ElseIf strRep = vbCancel Then
            Cancel = True
        End If

sur l'évennement "Avant sauvegarde" du formulaire. Ainsi il est demandé "Voulez-vous sauvegarder ?". Si la réponse est NON, il n'y a pas de sauvegarde.

Jean-Pierre

[orfeu]

Merci pour la rapidité de la réponse... Perso, je ne me servirais que du "undo".

Sinon, juste une question: est-ce que le before update se lance à chaque update de l'enregistrement en cours?

[jeanpierre78]

Envoyé par orfeu

Sinon, juste une question: est-ce que le before update se lance à chaque update de l'enregistrement en cours?

Bonsoir,

La procédure placée sur Before update se lance à chaque update de l'enregistrement à condition qu'un champ ai été modifié.

Jean-Pierre