Discussion :

[maximilien59]

Bonjour a tous,

Je voudrai savoir que est le code vba afin d'annuler les enregistrements dès l'appuie sur un bouton "Annuler & quitter"?

Mon formulaire est composé de 3 listes déroulantes qui sont liées. J'ai essayé suite à la lecture de ce forum, dans la propriété du formulaire (avant MAJ) le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_BeforeUpdate(Cancel As Integer) 
If MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Confirmation" ) = VbNo Then 
 Me.Undo 
End If 
End Sub

Le problème est que la demande se fait à chaque Modification.

Quelqu'un aurait-il une solution?

Je vous remercie

[RobiPMS]

Bonjour.

Voici un code qui me semble correspondre à ce que tu attends :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Ton_bouton_Click()
If MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Confirmation") = vbNo Then
    DoCmd.SetWarnings False 'désactive les avertissements
    DoCmd.RunCommand acCmdUndo
    DoCmd.SetWarnings True 'réactive les avertissements
    DoCmd.Close acForm "Ton_Formulaire"
Else
    DoCmd.Close acForm "Ton_Formulaire"
End If
End Sub

Et tu supprimes la procédure "Sub Form_BeforeUpdate".
Cordialement.

[maximilien59]

Merci pour ta réponse rapide mais malheureusement cela ne change rien à ma situation.

[RobiPMS]

Bonjour.

malheureusement cela ne change rien à ma situation.

Qu'est-ce qui ne change pas?
Si tu supprimes le code "Avant mise à jour",

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_BeforeUpdate(Cancel As Integer) 
If MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Confirmation" ) = VbNo Then 
 Me.Undo 
End If 
End Sub

la demande d'enregistrement ne se fera plus à chaque modification.
Le message ne sera affiché que lorsque tu cliques sur ton bouton de fermeture et annulation éventuelle des modifications.
Ou alors, j'ai mal compris ta demande; dans ce cas, peux-tu expliquer autrement?
Cdt
R.L.

[maximilien59]

Le code dans "Avant mise à jour" à bien été supprimé.

Dès le clique sur le bouton "Annuler et quitter", mon formulaire se ferme mais les 3 valeurs de mes listes déroulantes reste quand même sauvegarder avec ton code.

C'est pour cette raison que je note que cela ne change pas à ma situation.

[RobiPMS]

OK.
Quand tu cliques sur le bouton, tu as l'affichage du message "Voulez-vous enregistrer les modifications ?", et si tu cliques sur Non, le formulaire se ferme et les valeurs sont quand même enregistrées?