Bloquer le code tant qu'un formulaire est ouvert ?

**marot_r** · 01/03/2010, 17h05

Bonjour à tous et merci de votre temps et de votre aide.

J'aimerai que mon code VBA s'arréte tant qu'un formulaire est ouvert. Actuellement je procède avec la boucle suivante :

Code :

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

1
2
3
4
 
do
   doevents
while currentproject.allforms("NomMonFormulaire").isloaded

Ça marche mais je trouve pas ça très propre.

J'ai essayé de jouer avec les propriétés Modale et PopUp du form appelé mais même si j'obtiens bien que le form reste ouvert le code aprés le doCmd.OpenForm s'exécute quand même.

J'ai aussi essayé avec le mode dialog du doCmd sans plus de résultat.

Exemple de code que j'aimerai :

Code :

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

1
2
3
 
docmd.OpenForm "NomDuFormAAttendre",,,,,acDialog
msgbox "Vous avez fini d'utiliser le formulaire"

A+

**Simplifi** · 02/03/2010, 10h11

hello marot_r, content de te voir
c'est bizare, j'ai eut le même problème en sens inverse, mon code ne voulait pas continuer tant aue je n'avais pas fermé le formulaire qui était ouvert en mode dialog, et comme j'avais besoin de faire référence à une zone de texte de ce formulaire, j'ai utilisé une bricole qui peut t'être utile
j'ai terminé le code de l'objet appelant juste après l'ouverture du formulaire et j'ai transféré le reste de code dans l'objet appelé (sur bouton ou sur sortie) ce qui fait que je n'ai pas de code en suspens pendant que j'utilise le formulaire appelé.

En espérant aider

**marot_r** · 02/03/2010, 17h13

Merci Simplfi, te souviens-tu des paramétrages de ton formulaires qui bloquait ton code ?

A+

**nico84** · 02/03/2010, 20h20

Bonsoir,

Envoyé par marot_r

Exemple de code que j'aimerai :

Code :

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

1
2
3
 
docmd.OpenForm "NomDuFormAAttendre",,,,,acDialog
msgbox "Vous avez fini d'utiliser le formulaire"

En quoi code ne convient pas ???

**marot_r** · 02/03/2010, 20h30

Envoyé par nico84

Bonsoir,

En quoi code ne convient pas ???

Le message s'affiche alors que le formulaire en mode dialog est encore ouvert. J'aimerai que ce message ne s'affiche qu'aprés que l'utilisateur ai fermé le formulaire en mode dialog.

A+

**Simplifi** · 03/03/2010, 10h11

hello
voilà avec quoi j'ouvre le formulaire:

Code :

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

1
2
3
Private Sub Dupliquer_Click()
    DoCmd.OpenForm "Numéro_moyen", , , , , acDialog, "DupliquerProcess"
End Sub

juste pour dire qu'il n'y a rien d'exeptionnel, l'openargs est juste là pour indiquer à ce nouveau formulaire l'origine de son appel et agir en conséquence

le code que j'avais mis à la suite de l'openform ci-dessus a été déplacé dans le bouton OK

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_Load()
Select Case OpenArgs
    Case "moyens_prod"
        Nouv_N°_moy = DMax("N°moyen_prod", "Moyens_Prod", "N°moyen_prod < 1000") + 1
        DoCmd.MoveSize 8000, 4000
    Case "process"
        Nouv_N°_moy = DMax("N°moyen_prod", "Moyens_Prod") + 1
        DoCmd.MoveSize 8000, 4000
    Case "DupliquerProcess"
        Nouv_N°_moy = DMax("N°moyen_prod", "Moyens_Prod") + 1
        DoCmd.MoveSize 8000, 4000
    Case Else
End Select
End Sub
 
Private Sub OK_Click()
On Error GoTo Fin
Select Case OpenArgs
    Case "moyens_prod"
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Ajoute_moyen"
        DoCmd.SetWarnings True
        Forms!moyens_prod.Filter = "N°moyen_prod = " & Nouv_N°_moy
    Case "process"
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Ajoute_process"
        DoCmd.SetWarnings True
        Forms!process.Filter = "N°moyen_prod = " & Nouv_N°_moy
    Case "DupliquerProcess"
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Duplique_process"
        DoCmd.SetWarnings True
        Forms!process.Filter = "N°moyen_prod = " & Nouv_N°_moy
    Case Else
End Select
Fin:
DoCmd.Close
End Sub

Avec l'image permettant de voir les paramètres du formulaire ouvert en mode dialog

Voilà ce que je peux en dire, en espérant aider

**Tonioyo** · 03/03/2010, 10h41

Bonjour,

Pour executer du code lorsque le formulaire se ferme, il faut le placer sur l'évènement Close du formulaire en question. Ce code s'executera à la fermeture du formulaire.

**nico84** · 03/03/2010, 12h22

Envoyé par marot_r

Le message s'affiche alors que le formulaire en mode dialog est encore ouvert. J'aimerai que ce message ne s'affiche qu'aprés que l'utilisateur ai fermé le formulaire en mode dialog.

Chez moi c'est ce que fait AcDialog

Je suis en version 2000 et la fenêtre appelée est modale=oui, indépendante=oui

**marot_r** · 03/03/2010, 20h38

Merci, à vous, je vais faire des tests plus poussés ce week-end. Je vous reviens là dessus.

**marot_r** · 03/03/2010, 20h42

Envoyé par Tonioyo

Bonjour,

Pour executer du code lorsque le formulaire se ferme, il faut le placer sur l'évènement Close du formulaire en question. Ce code s'executera à la fermeture du formulaire.

Merci de l'idée mais cela ne convient pas à mon traitement réel.

Dans mon application mon formulaire appelé n'a aucune idée de ce qui se passe quand on le ferme et c'est comme cela que je le souhaite car ce formulaire peut-être appelé de diverses manières.

A+

**Simplifi** · 03/03/2010, 23h35

Hello

Envoyé par marot_r

Dans mon application mon formulaire appelé n'a aucune idée de ce qui se passe quand on le ferme et c'est comme cela que je le souhaite car ce formulaire peut-être appelé de diverses manières.

c'est pour ça que dans le code que j'ai passé au dessus, j'utilise un openargs pour l'appel du formulaire et que je m'en sert à l'ouverture du formulaire et pour le bouton OK qui sert de fermeture

Bon, peut être que dans ton cas, si les appels sont trop variés, ça peut devenir fastidieux

**Tonioyo** · 04/03/2010, 12h34

Envoyé par marot_r

Merci de l'idée mais cela ne convient pas à mon traitement réel.

Dans mon application mon formulaire appelé n'a aucune idée de ce qui se passe quand on le ferme et c'est comme cela que je le souhaite car ce formulaire peut-être appelé de diverses manières.

A+

Bah moi je voyait la chose suivante: sur la fermeture du formulaire lever un évènement (par exemple Err.raise) qui serra ensuite "capté", non ?

**ARO** · 06/03/2010, 10h02

Bonjour,

Si j'ai bien compris ton problème.

Il faut bien appeler le formulaire avec l'option AcDialog se qui va arrêter le déroulement du code.

Sur le formulaire appelé, sur le bouton de sortie tu fais un

Code :

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

1
2
 
Me.Visible = false

Le code va reprendre mais tu va pouvoir récupérer des informations de ton formulaire appélé puisqu'il est toujours chargé.

Il ne reste plus qu'a fermer le formulaire

Code :

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

1
2
 
DoCmd.Close acForm, "MonFormulaireAppelé"

Alain

**cbleas** · 06/03/2010, 11h15

Bonjour,

Code :

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

1
2
3
4
5
Citation:
Envoyé par marot_r  
Le message s'affiche alors que le formulaire en mode dialog est encore ouvert. J'aimerai que ce message ne s'affiche qu'aprés que l'utilisateur ai fermé le formulaire en mode dialog.
Chez moi c'est ce que fait AcDialog 
Je suis en version 2000 et la fenêtre appelée est modale=oui, indépendante=ou

Il semble y avoir un problème ailleurs car cela fait normalement ce que tu veux avec le acdialog

Bonne journée

Bloquer le code tant qu'un formulaire est ouvert ?

IHM

Discussions similaires

Partager

Partager