Discussion :

[amelyfred]

Bonjour à tous,

Sur mon application, j'ai fait un bouton "fermer base access" avec un message de confirmation. Si la personne confirme, il y a lancement d'une procédure avant la fermeture. Ok ca, ca marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim numInt As Long
'Fermeture de l'application avec message de confirmation
If MsgBox("Voulez-vous vraiment fermer l'application? ", vbYesNo + vbQuestion, "Fermeture de l'application") = vbNo Then
    Cancel = True
Else
    If TempVars("IdIntFDMCours").Value <> "" Then
        numInt = TempVars("IdIntFDMCours").Value
        Call Fermeture_FDM(numInt)
    End If
    DoCmd.Quit
End If

Par contre, si la personne clique sur la croix en haut à droite de l'application, access se ferme et ma procédure n'est pas lancée.

J'ai cru comprendre qu'il fallait créer un formulaire caché sur lequel, on met la procédure sur l'évènement unload. Du coup si je clique sur la croix en haut à droite ma procédure se lance.

Par contre sur mon bouton 'fermer la base", si je met

Code :

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

DoCmd.quit

le message de confirmation apparait, et si je réponds oui c'est bon ca ferme.
Mais si je réponds non ca ferme aussi.

J'ai également mis sur mon bouton :

Code :

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

Docmd.close acForm, "FormeCache"

Et là si je réponds non, j'ai un message d'erreur m'indiquant que le formulaire cahé n'a pas été fermé.

Comment peut faire en sorte que lors d'un clique sur le bouton de mon formulaire princiaple ou sur un clique sur la croix en haut d'access, j'ai un message de confirmation qui apparaisse, que si je réponds oui la procédure s'effectue et le base se ferme et que si je réponds non rien ne se passe.

Merci d'avance pour votre aide

Fred

[madefemere]

Bonjour Fred,

Carrément pour moi, si tu as un bouton pour fermer ton formulaire, il faut enlever le bouton "Croix" par défaut qui permet de fermer les formulaires. C'est un problème en moins à gérer.

Cordialement,

[amelyfred]

Bonjour Madefemere,
C'est possible de désactiver le bouton croix de fermeture d'access?

[madefemere]

Oui, Dans Propriétés, Format, tu mets "Bouton fermer" à NON.

Cordialement,

[Didier L]

Bonjour,

Si non dans le Unload de ton formulaire "caché", mais le dernier test que tu veux faire avant chaque fermeture !
Aionsi si ce test n'est pas concluant tu pourra mettre

Code :

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

Cancel=True

et Access ne se fermera jamais!

[amelyfred]

Oui, Dans Propriétés, Format, tu mets "Bouton fermer" à NON.

Ok mais ca c'est pour bloquer le bouton fermer d'un formulaire et non de la base.

Je crois que je me suis mal exprimé.

Sur mon formulaire principal, j'ai mon bouton "ferme la base" qui fonctionne nickel. Sauf que la personne peut également fermer access à l'aide de la croix de fermeture access. Et c'est dans ce cas là que ma procédure n'est pas exécuté.

@Didier L : c'est ce que j'ai fait mais le problème, effectivement la base ne se ferme pas, mais le formulaire principale se ferme.

[Didier L]

Met alors ce code sur le Unload du formulaire principal
Car si je comprend bien il est toujours ouvert ?

[madefemere]

Bonsoir,

Je ne sais pas si "cacher" totalement la fenêtre Access est une solution pour toi.
Vas voir CETTE DISCUSSION qui traite du sujet et te donnera peut-être la solution.

Cordialement,

[amelyfred]

Oui Didier, il est toujours ouvert donc c'est peut être la solution.
J'essaye ça lundi.

Merci madefemere, je vais lire ça.
Bonne journée
Fred