Discussion :

[NicoLaurent]

Bonjour,

Je souhaite exécuter une procédure après la fermeture d'un formulaire.
J'ai cherché sur plusieurs forums sans trouver une solution satisfaisante (je n'ai même pas trouvé de solution du tout)

Je souhaite bien exécuter la procédure après la fermeture du formulaire car cette procédure utilise des tables utilisées également par ce formulaire.

Cordialement,

Nicolas

[chrtophe]

Si ta procédure incluse dans le formulaire, je pense que ce n'est pas possible. quel type de procédure déclenches-tu ?

Si c'est absolument nécessaire, tu peux cache le formulaire le temps du traitement par Forms!TonFormulaire.Visible = No.

[NicoLaurent]

Bonjour,

Merci pour ta réponse.

Mon formulaire crée un sous-formulaire à l'ouverture avant de lier le sous formulaire à ce formulaire. Ce que j'aimerais c'est supprimer ce sous-formulaire à la fermeture (il s'agit donc d'une procédure VBA qui supprime simplement le formulaire).

Cacher le formulaire ne va pas résoudre le problème car le formulaire reste ouvert et donc utilise le sous-formulaire
Une solution qui devrait marcher serait de supprimer la source

[Form_formulaire].sous_formulaire.SourceObject = ""

puis de supprimer le sous-formulaire mais ça ne marche pas, access me signale que le sous-formulaire est en cours d'utilisation et qu'il est donc impossible de le supprimer.

L'idéal pour moi serait de fermer le formulaire puis lancer ma procédure qui va simplement supprimer le formulaire.

Cordialement,

[NicoLaurent]

Bonjour,

Au temps pour moi, la solutions sus-citée fonctionne.

Il s'agit donc d'une solution de substitution, il n'y a toujours pas de "résolution" au problème d'exécution d'une procédure après fermeture du formulaire.

[marot_r]

En theorie tu ne devrais pas a avoir a supprimer de formulaire.

Une idee serait peut-etre d'insatncier le formulaire a partir du code VBA et d'attraper le event de fermeture du formualire.

un truc du genre

Code :

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

dim f as form_NomTonForm withevents

Code :

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

1
2
Set f = New form_NomTonForm
f.visible=true

Code :

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

1
2
3
Private Sub f_Close()
   'Do something
End Sub

Je ne suis pas sur que cela va fonctionner.

A+