Discussion :

[jeanbonbeurre]

Bonjour,

Dans un formulaire avec 2 champs, dés qu'on l'a ouvert et qu'on le quitte ( avec la croix) les données sont ajoutées dans la DB.

Pour éviter cela sur Avant MAJ, j'ai ajouté le code suivant :

Code :

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

1
2
3
 If MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Confirmation") = vbNo Then
   Me.Undo
   End If

Si je n'ai rien entré dans les champs, cela fonctionne bien MAIS si un des champs ou les 2 sont complétés, j'ai 2 fois le message box qui s'affiche (car j'ai 2 champs dans le formulaire je suppose).

Comment faire pour ne l'avoir qu'une seule fois ?

Merci

[helas]

peut-être

Code :

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

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

[jeanbonbeurre]

Ca ne fonctionne pas. Au contraire, j'ai un message d'erreur.

Merci quand même

[@rkane]

j'ai eu ce bleme j'ai mis ça sur un bouton "annulation ":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Me.Undo
Dim Ctl As Control
For Each Ctl In Me.Form
If Ctl.ControlType = acTextBox Then
Ctl.value = ""
ElseIf Ctl.ControlType = acComboBox then
Ctl.value = ""
ElseIf Ctl.ControlType = acCheckBox then
 Ctl.value = false
enf If
DoCmd.Close acForm, Me.Name