Discussion :

[gwenagan]

Bonjour à tout le monde.

Je cherche à forcer un formulaire à s'ouvrir par dessus un autre. Mon formulaire est en mode indépendant et s'ouvre en premier plan sauf de temps en temps. Ce qui pose un problème car j'ai des rafraîchissements de formulaires en dessous quand je quitte celui dont je parle.

Y a t'il un code sur ouverture qui le contraigne à toujours s'ouvrir par dessus ?
Pour l'ouvrir j'utilise la méthode suivante :

Code :

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

1
2
3
4
5
 
 
DoCmd.SetWarnings True
Me.Refresh
DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL"

est ce le Me.refresh du formulaire que je quitte qui est responsable ?

Merci pour votre aide et bonne journée.

[madefemere]

Bonjour,

Pour rendre un formulaire au premier plan et le garder dessus tant qu'on ne le ferme, il faut définir sa propriété "MODAL" à OUI.

Cordialement.

[gwenagan]

Bonjour à tous.

Merci pour votre aide. J'ai changé la propriété du formulaire.

Bonne soirée et encore merci.

[gwenagan]

Bonjour à tout le monde.

Je reviens à la charge avec mon formulaire qui ne s'ouvre pas toujours par dessus le précédent.

J'ai suivi le conseil de madefemere, c'est à dire que je l'ai déclaré en fenêtre Modale, mais il continu à s'ouvrir en dessous de temps en temps. Cela pose un problème car en Modale, je ne peux plus rien fermer (il est également en fenêtre indépendante).

Je repose donc ma question, est 'il possible que mon Me.refresh soit responsable ? Ne devrais je pas mettre une temporisation avant d'ouvrir mon formulaire ?

Code :

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

1
2
3
4
5
DoCmd.SetWarnings True
Me.Refresh
'Temporisation ?
DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL"

Je vous remercie par avance pour votre aide et vous souhaite une très bonne soirée.

[star]

As-tu essayé sans ?

Code :

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

1
2
DoCmd.SetWarnings True
Me.Refresh
DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL"

.

[gwenagan]

Bonjour à tout le monde.
Je répond avec beaucoup de retard. Je m'excuse, j'étais absent quelques jours.
Merci pour votre aide.
Je vais essayer sans le Me.Refresh.
J'avais besoin d'une actualisation avant de quitter mon écran pour que le suivant soit bien à jour.
Je vais voir si je peux faire autrement.
Je vous tiens au courant.
Bonne soirée à vous tous.

Re bonjour,
Je modifie mon message car je viens d'enlever le Me.Refresh et au premier essai, cela c'est produit. Ouverture de mon formulaire en dessous.
Je ne sais plus quoi faire.
Merci pour votre aide et très bonne soirée.

[tee_grandbois]

bonsoir,
c'est bizarre qu'en mettant modale, cela ne fonctionne pas toujours ...
Essaie d'ouvrir ton formulaire en mode dialogue, c'est comme la propriété modale, mais cette option met toujours la fenêtre au premier plan (en principe...):

Code :

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

DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL", WindowMode:=acDialog

par contre, il y a un inconvénient: si tu as du code qui fait référence au formulaire appelé, il ne sera pas exécuté et provoquera une erreur:

Code :

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

1
2
DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL", WindowMode:=acDialog
Forms!G_PLANNING_TYPE_VISUEL.Form.Controls(0).Setfocus  '<== provoquera une erreur car le formulaire sera fermé

la commande Setfocus ne pourra pas s'exécuter car le code s'arrête à l'instruction d'ouverture du formulaire appelé (G_PLANNING_TYPE_VISUEL), il ne continuera qu'à la fermeture de ce formulaire.
Sinon, après il y a l'API ShowWindow qui permet de gérer n'importe quelle fenêtre y compris celles des formulaires Access.

pour info, le Me.Refresh n'a rien à voir avec le problème de positionnement du formulaire.

[gwenagan]

Bonjour à tout le monde.

C'est encore avec beaucoup de retard que je vous remercie de votre aide. j'étais encore absent.

merci beaucoup tee_grandbois. Je viens d'essayer :

Code :

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

1
2
 
DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL", WindowMode:=acDialog

Cela fonctionne correctement pour l'instant. Pas encore eu de formulaire s'ouvrant en dessous. Je serai sûr après quelques ouvertures supplémentaires et vous tiendrai au courant.

Je n'ai pas de Setfocus ou autre, donc pas de soucis pour utiliser cette méthode. Le formulaire que je veux ouvrir par dessus (image 1) est juste une vision graphique d'un planning (image 2).





Encore merci. Je continu de tester.

PS : Ce n'est pas la première base de donnée dans laquelle cela se produit. A chaque fois, c'est lorsque j'effectue un code très lourd effectuant des boucles longues
notamment dans des calcul de dates ou d'heures. C'est lors de l'affichage du résultat de ces calculs dans un formulaire que cela se produit.

Merci encore et bonne journée, bon Dimanche à tous.

[gwenagan]

Bonjour à tout le monde.
Je viens vous donner le résultat qui semble définitif.
J'ai suffisamment testé ma base de données pour affirmer maintenant que cela fonctionne avec la solution de tee_grandbois.

Code :

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

1
2
 
DoCmd.OpenForm "G_PLANNING_TYPE_VISUEL", WindowMode:=acDialog

Plus d'ouverture de mon formulaire en dessous. Il s'ouvre par dessus comme demandé.
Merci encore une fois pour votre aide.
Je vous souhaite à tous une très bonne journée.