Discussion :

[zouloute]

Bonjour,
je souhaiterai afficher un message lors de la fermeture d'un formulaire:
"avez-vous modifié...?"
Avec la possibilité de répondre en cliquant sur oui ou non.
Si oui, cela ferme le formulaire
Si non, le formulaire ne se ferme pas.

qqun peut-il m'aider?
Merci

[Renardo]

Boujour
Si tu ferme ton formulaire a partir d'un bouton tu peux mettre se type de code

Code :

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

1
2
3
4
5
6
If MsgBox("Voulez-vous Fermez ce formulaire ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Validez") = vbYes Then
            DoCmd.Close acForm, "Nom du formulaire"
    Else
 
    End If

[zouloute]

Merci,
cela marche presque: il ne me reste plus qu'à empêcher le formulaire de se fermer quand je clique sur non...
Dans le code:
Else
??

[Renardo]

Desolé mais si je clik sur non mon form ne se ferme pas

[zouloute]

Moi j'ai le message d'alerte
"Erreur d'exécution 2501"
L'action Close a été annulée

Je ne sais pas pourquoi...

[Domi2]

Bonjour,

Peux-tu poster ton code et nous indiquer depuis où tu l'exécutes ?

Domi2

[zouloute]

Bonjour, dans le formulaire,
"sur fermeture", j'ai le code suivant:


[Private Sub Form_Close()
If MsgBox("Avez-vous modifié la date action si nécessaire?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation sortie") = vbYes Then
DoCmd.Close acForm, "Maincourantemodification"
Else

End If

End Sub]

En espérant que cela réponde à la question...

[Domi2]

Re,

Je ne crois pas que tu puisses encore annuler l'action si tu utilises sur fermeture.

Essaie de mettre ton code sur l'événement Sur libération en le modifiant :

Code :

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

1
2
3
4
5
6
7
8
9
10
If MsgBox("Avez-vous modifié la date action si nécessaire?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation sortie") = vbYes Then
 
Cancel = False
 
Else
 
Cancel = True
 
End If

Domi2

[zouloute]

Super!
Merci beaucoup !