Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access evenement sur fermeture.

evenement sur fermeture.

4 réponses
Avatar
L. BONNEAU
Bonjours,

Je recherche le moyen d'annuler la fermeture d'un formulaire. Mon but est
sur la fermeture du formulaire, je pose la question à l'utilisateur si il
veut enregistrer ses données. et je lui donne la possibilité de répondre
oui; non ou annuler.
Merci a tous.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
PatCatNats
Bonjour,

Sur évènement mettre :
'---------------------------------------------
Dim Msg, Style, Title, Response, MyString

Msg = "Voulez vous enregistrer vos données ?" ' Message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Boutons.
Title = "Avertissement" ' Titre.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' Oui.
MyString = "Yes" ' Effectue action.
DoCmd.Close acForm, "MonFormulaire", acSaveYes
Else ' Non.
MyString = "No" ' Effectue action.
DoCmd.CancelEvent
End If
'---------------------------------------------

Patrice

"L. BONNEAU" a écrit dans le message de
news:418b7d09$0$18169$
Bonjours,

Je recherche le moyen d'annuler la fermeture d'un formulaire. Mon but est
sur la fermeture du formulaire, je pose la question à l'utilisateur si il
veut enregistrer ses données. et je lui donne la possibilité de répondre
oui; non ou annuler.
Merci a tous.




Avatar
L. BONNEAU
Je te remerci. Mais je suis sur l'évènement de fermeture du formulaire et
mon problème je n'arrive pas à annuler la fermeture de mon formulaire.


"PatCatNats" a écrit dans le message de
news:cmfv5u$ac4$
Bonjour,

Sur évènement mettre :
'---------------------------------------------
Dim Msg, Style, Title, Response, MyString

Msg = "Voulez vous enregistrer vos données ?" ' Message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Boutons.
Title = "Avertissement" ' Titre.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' Oui.
MyString = "Yes" ' Effectue action.
DoCmd.Close acForm, "MonFormulaire", acSaveYes
Else ' Non.
MyString = "No" ' Effectue action.
DoCmd.CancelEvent
End If
'---------------------------------------------

Patrice

"L. BONNEAU" a écrit dans le message de
news:418b7d09$0$18169$
Bonjours,

Je recherche le moyen d'annuler la fermeture d'un formulaire. Mon but
est


sur la fermeture du formulaire, je pose la question à l'utilisateur si
il


veut enregistrer ses données. et je lui donne la possibilité de répondre
oui; non ou annuler.
Merci a tous.








Avatar
JMH
Salut
Tu mets du code dans l'événement Sur Libération" et selon ton choix tu mets
Cancel = True et le formulaire ne se ferme pas.
Mais bon, là tu dois tester si il y a eu des modif sur le record affiché. Si
pas de modif, tu fermes.

bye

"L. BONNEAU" a écrit dans le message de news:
418b8336$0$15909$
Je te remerci. Mais je suis sur l'évènement de fermeture du formulaire et
mon problème je n'arrive pas à annuler la fermeture de mon formulaire.


"PatCatNats" a écrit dans le message de
news:cmfv5u$ac4$
Bonjour,

Sur évènement mettre :
'---------------------------------------------
Dim Msg, Style, Title, Response, MyString

Msg = "Voulez vous enregistrer vos données ?" ' Message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Boutons.
Title = "Avertissement" ' Titre.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' Oui.
MyString = "Yes" ' Effectue action.
DoCmd.Close acForm, "MonFormulaire", acSaveYes
Else ' Non.
MyString = "No" ' Effectue action.
DoCmd.CancelEvent
End If
'---------------------------------------------

Patrice

"L. BONNEAU" a écrit dans le message de
news:418b7d09$0$18169$
Bonjours,

Je recherche le moyen d'annuler la fermeture d'un formulaire. Mon but
est


sur la fermeture du formulaire, je pose la question à l'utilisateur si
il


veut enregistrer ses données. et je lui donne la possibilité de
répondre
oui; non ou annuler.
Merci a tous.












Avatar
L. BONNEAU
Je te remercie pour cette information.
Ceci fonctionne correctement.

"JMH" a écrit dans le message de
news:
Salut
Tu mets du code dans l'événement Sur Libération" et selon ton choix tu
mets

Cancel = True et le formulaire ne se ferme pas.
Mais bon, là tu dois tester si il y a eu des modif sur le record affiché.
Si

pas de modif, tu fermes.

bye

"L. BONNEAU" a écrit dans le message de news:
418b8336$0$15909$
Je te remerci. Mais je suis sur l'évènement de fermeture du formulaire
et


mon problème je n'arrive pas à annuler la fermeture de mon formulaire.


"PatCatNats" a écrit dans le message de
news:cmfv5u$ac4$
Bonjour,

Sur évènement mettre :
'---------------------------------------------
Dim Msg, Style, Title, Response, MyString

Msg = "Voulez vous enregistrer vos données ?" ' Message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Boutons.
Title = "Avertissement" ' Titre.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' Oui.
MyString = "Yes" ' Effectue action.
DoCmd.Close acForm, "MonFormulaire", acSaveYes
Else ' Non.
MyString = "No" ' Effectue action.
DoCmd.CancelEvent
End If
'---------------------------------------------

Patrice

"L. BONNEAU" a écrit dans le message de
news:418b7d09$0$18169$
Bonjours,

Je recherche le moyen d'annuler la fermeture d'un formulaire. Mon but
est


sur la fermeture du formulaire, je pose la question à l'utilisateur
si




il
veut enregistrer ses données. et je lui donne la possibilité de
répondre
oui; non ou annuler.
Merci a tous.