Discussion :

[hellmaster78]

Bonjour à tous,

Cela fait un petit moment que je fais des outils en VBA/ACCESS 2003, et depuis quelques jours, j'ai un soucis avec la commande banale "DoCmd.close"

Ainsi, sur le bouton "Close" d'un formulaire, j'ai le code suivant :

Code :

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

1
2
 
DoCmd.Close acForm, Me.Name

Jusque là, rien d'anormal, sauf que lorsque je clique sur le bouton "Close", le formulaire ne se ferme pas à chaque fois. Il faut à chaque fois cliquer 2 fois pour qu'il se ferme.

Quelqu'un a déjà eu ce problème ou une idée de la provenance de ce "Bug" ?

Merci d'avance

[stigma]

Personnellement, je nomme le form que je veux fermer, même si je suis dedans.

Code :

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

DoCmd.Close acForm, "F_Meules"

[hellmaster78]

Oui, ça revient au même (sauf que le "Me.Name" est générique à tous les formulaires).

J'ai également testé de cette façon, mais le résultat persiste

Edit : Je tiens à préciser que j'ai pas mal d'outils qui tournent déjà depuis longtemps, et qui sont conçus de la même façon, et il n'y a aucun problème.

[Domi2]

Bonjour,

Tu fais des compactages régulier de ta base ?

Domi2

[hellmaster78]

Salut Domi,

Ca dépend ce qu'on appelle "Souvent", mais oui je compacte avant chaque mise en production.

Je viens de le faire, et ça ne change rien (d'autant plus que pour l'instant je n'ai aucune donnée, car je ne fais que des maquettes de formulaire pour une spec. La mdb est donc très léger).

Petite autre précision qui a peut être de l'importance :

Je lance le formulaire en question directement depuis la liste des formulaire (Via la touche F5) : Le bouton close marche très bien :

Le même formulaire s'ouvre par code (en cliquant sur un autre bouton d'un autre formulaire) : Le bouton close marche mal.

Pour info, le code d'ouverture d'un formulaire (ce n'est pas le seul cas. C'est toujours le même problème pour tous les formulaires) :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub btn_create_Click()
    On Error GoTo gestErr
        DoCmd.OpenForm Form_F_FRET_CREATE.Name, , , , , acDialog
    Exit Sub
gestErr:
   ' Gestion d'erreur
 
End Sub

[Domi2]

Re,

Hem...

Je ne vois rien de spécial...

Tu as une raison particulière d'utiliser le mode fenêtre acDialog ?

Domi2

[hellmaster78]

Ouhouuuuuuuuuuuuuuuuu

J'ai trouvé!! Si ça peut intéresser quelqu'un :

Le problème vient de l'ouverture du formulaire en fait (Va comprendre pourquoi)

Si j'ouvre le formulaire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub btn_create_Click()
    On Error GoTo gestErr
        DoCmd.OpenForm Form_F_FRET_CREATE.Name, , , , , acDialog
    Exit Sub
gestErr:
   ' Gestion d'erreur
 
End Sub

La fermeture du formulaire F_FRET_CREATE fonctionne MAL

Par contre, si j'ouvre comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub btn_create_Click()
    On Error GoTo gestErr
        DoCmd.OpenForm "FRET_CREATE", , , , , acDialog
    Exit Sub
gestErr:
   ' Gestion d'erreur
 
End Sub

=> Tout est ok

Par contre, si quelqu'un a une explication logique, ça m'interesse

EDIT : Stigma t'avais presque raison, sauf que c'était à l'ouverture du form (j'ai testé pour la fermeture, ça ne change rien). Mais décidément, Access restera toujours très flou sur certains points

Merci à vous 2 pour vos réponses