Comment fermer tous les formulaires d'une application ?

**eperat** · 22/04/2013, 14h33

Bonjour,

Je souhaiterais trouver une solution pour fermer tous les formulaires de mon application. Voici le code que j'utilise mais ça ne fonctionne pas. Aucun formulaire ne se ferme.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub ps_FermerTousLesFrm()
Dim obj         As AccessObject
Dim dbs         As Object
 
    Set dbs = Application.CurrentProject
 
    For Each obj In dbs.AllForms
        DoCmd.Close acForm, obj.Name
    Next obj
End Sub

NB : j'ai déjà remarqué que la commande DoCmd.Close ou DoCmd.Close acForm, <Nom du formulaire> posait parfois des problèmes pour fermer un formulaire.

**jimbolion** · 22/04/2013, 14h50

eperat bonjour,

Une autre solution

Code :

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

1
2
3
4
5
6
7
8
9
Public Function close_All()
Do While Forms.Count > 0
    DoCmd.Close acForm, Forms(0).Name
Loop
'
Do While Reports.Count > 0
    DoCmd.Close acReport, Reports(0).Name
Loop
End Function

JimBoLion

**eperat** · 22/04/2013, 15h31

Bonjour,

Cette solution donne le même résultat. J'ai essayé avec un formulaire ouvert, la commande Docmd.Close ne fermant pas ce formulaire, il boucle de manière infinie vu que la valeur de forms.count reste à 1.

**jimbolion** · 22/04/2013, 15h49

eperat re-bonjour,

Etrange et surprenant, cette technique ne m'a jamais posé de soucis au préalable (fonctionne également sur les formulaires indépendants et modals).

N'aurais tu pas un point d'arrêt sur le code associé à ton formulaire par hasard ?

JimBoLion

**eperat** · 22/04/2013, 17h55

Rebonjour,

Non, il n'y a pas de point d'arrêt.

**jimbolion** · 22/04/2013, 18h00

eperat,

Si tu ouvres 1 formulaire hormis celui qui pose problème et que tu lances la fonction cela marche t'il ?

en ouvrant ensuite deux formulaires...

Je crains que le problème vienne de ton formulaire, la fonction elle ne m'a jamais posé problème

Quelle version d'Access

JimBoLion

**Dolphy35** · 22/04/2013, 19h56

Bonjour,

J'utilise cette solution qui fonctionne très bien, même depuis le formulaire appelant

http://access.developpez.com/faq/?pa...#CloseAllForms

@+

**jimbolion** · 22/04/2013, 20h14

Dolphy35,

La procédure est exactement identique à la mienne, à priori le problème vient d'ailleurs et je ne vois pas encore pourquoi.

JimboLion

**eperat** · 22/04/2013, 21h29

Bonjour à tous,

Pour info, j'utilise une base Access 2007 de type accdb.

La fermeture des fenêtres est codée dans une procédure publique (dans un module) liée à un bouton de mon ruban.

Pour répondre à jimbolion, ce n'est pas un formulaire en particulier qui pose problème. J'ai essayé avec plusieurs formulaires différents (avec chaque fois un seul ouvert), le problème demeure. Il n'y a aucune erreur et le formulaire ne se ferme pas. En mode pas à pas, on le voit exécuter la commande DoCmd.close avec le formulaire qu'il doit fermer. Après exécution de la commande, le formulaire est toujours ouvert.

En fait, Access ne voit pas que les formulaires sont ouverts (il les voit fermés ou bien il ne les voit pas et je pense que tout le nœud du problème est là). Et si ça ne se plante pas, c'est parce qu'on peut faire un DoCmd.close sur un formulaire fermé et même sur un formulaire qui n'existe pas, la commande DoCmd.close ne plante jamais.

Et la preuve qu'Access ne voit pas que les formulaires sont ouverts, c'est que si je fais par exemple un DoCmd.SelectObject d'un formulaire ouvert (dans la fenêtre de débogage), Access me renvoie une erreur en me disant que ce formulaire n'est pas ouvert.

Mais j'ai peut-être loupé quelque chose...?

**jimbolion** · 22/04/2013, 21h50

eperat,

Je regarde çà demain avec un ruban mais je suis surpris. D'après ton message, le formulaire reste ouvert mais ne serait plus considéré comme tel par Access ?

Etrange, etrange cette histoire

JimBoLion

**eperat** · 22/04/2013, 22h08

jimbolion,

Je ne pense pas que ce soit lié au ruban car j'ai fait des tests :

1) créer un formulaire vierge avec un bouton qui appelle la procédure de fermeture des fenêtres : même problème.

2) directement lancer la procédure dans la fenêtre de débogage : idem.

3) écrire le code de fermeture dans une procédure publique d'un formulaire et appeler cette procédure à partir d'une procédure publique d'un module (call forms("FRM_TEST").FermerFenetres).

Merci pour tes réponses et bonne soirée.

**Dolphy35** · 22/04/2013, 22h08

Envoyé par jimbolion

Dolphy35,

La procédure est exactement identique à la mienne, à priori le problème vient d'ailleurs et je ne vois pas encore pourquoi.

JimboLion

J'ai vu, c'était pour confirmer que cela fonctionne.

J'utilise ce code un peu détourné depuis un Ruban et cela fonctionne à merveille.

@+

**jimbolion** · 22/04/2013, 22h12

eperat,

Peux tu nous envoyer ta base ou à défaut quelque chose d'allégé.

J'avoue être plus que surpris de ce comportement que j'utilise frequemment et qui ne me pose aucun soucis.

JimboLion

**eperat** · 22/04/2013, 22h36

JimBoLion,

Si je pouvais te l'envoyer, je le ferais tout de suite mais c'est une application commerciale qui ne m'appartient pas.

Je vais donc faire des tests en créant une nouvelle base et y importer quelques formulaires de l'application afin de voir si il n'y aurait pas un problème dans l'application. Si ca ne fonctionne pas, je t'enverrai cette nouvelle base.