Discussion :

[cath007]

Bonjour,
J'aurai une question ou en tout cas un besoin d'éclaircissement.
Dans un formulaire Form1, sur un évènement click, je fais appel à un autre formulaire avec Form2.Show vbModal.
Form2 se charge correctement. Mais par contre, lorsque je fais un Unload me sur un évènement click d'un bouton dans le form2, j'aimerai que le code en dessous de l'instruction Form2.show vbModal s'exécute.
Or actuellement, il retourne au tout début de la fonction du Form1 appelante. Du coup je tombe sur une boucle infinie.

Je sais pas si j'ai été très claire...

[Vld44]

c'est pas normal.

Montre ton code svp, la fonction appelante depuis form1 et le bouton d'unload de form2.

[zazaraignée]

Il ne faut surtout pas faire un Unload Me sur le Form2. Une fois cette Fenêtre déchargée de la mémoire il est impossible d'exécuter le code qu'elle contient.

Tu devrais plutôt simplement faire un Me.Hide. Tu déchargeras le Form2 de la mémoire depuis le code du Form1.

[cath007]

J'ai une erreur tres etrange.... On dirait qu'apres mon instruction
form2.show vbModal, TOUS les MsgBox()
1- ne s'affichent pas
2- et en plus me fait retourner au début de la fonction appelante!

Est ce que c'est du au fait que
Form0 ouvre Form1 en show vbModal
Form1 ouvre Form2 en show vbModal ?
En gros, voila ce que je fais :
Dans un Form1 j'ouvre mon Form2 en vbModal
sur evenement d'un bouton, je fais Unload Me dans le Form2
--> si dans Form1 il n'y a aucun MsgBox apres cette instruction: tout se passe bien
--> si il y a un msgBox,je retourne au debut de ma fonction.

Le code simplifié serait :

Code :

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

1
2
3
4
5
6
7
Form1 - Bouton1_click()
 ...
for i=1 to 10
Form2.Show vbModal
MsgBox("un message quelconque")
next i
end sub

Code :

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

1
2
3
4
 
Form2 - Bouton2_click()
Unload me
end sub

[Vld44]

fait un copié collé complet des fonctions stp, sinon on ne peut pas t'aider.

[cath007]

Que je rajoute un MsgBox() n'importe ou apres l'ouverture du form2, il va revenir au début de la procédure B_Add_Click(). DU coup, je tombe sur une boucle infinie...
(J'ai fait afficher un MsgBox juste avant la boucle For pour vérifier)
FORM1

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
Private Sub B_Add_Click()
 
For i = 0 To x 
 
    Select Case a
        Case "abc"
 
            form2.Show vbModal
 
            If Trc.frmGetTitreText = "" Then
                Trc.frmGetTitreText = Lst_Type.list(Lst_Type.ListIndex)
            End If
 
        Case "def"
 
            Trc.frmGetTitreText = Trc.GetShortTitle(Trc.CopySourceID)
 
    End Select
    ...
 Next i
end sub

FORM2

Code :

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

1
2
3
4
5
6
Private Sub B_Ok_Click()
 
Trc.frmGetTitreText = Text1
Unload Me
 
End Sub

[Delbeke]

J'ai une erreur tres etrange.... On dirait qu'apres mon instruction
form2.show vbModal, TOUS les MsgBox()
1- ne s'affichent pas
2- et en plus me fait retourner au début de la fonction appelante!

Est ce que c'est du au fait que
Form0 ouvre Form1 en show vbModal
Form1 ouvre Form2 en show vbModal ?
En gros, voila ce que je fais :
Dans un Form1 j'ouvre mon Form2 en vbModal
sur evenement d'un bouton, je fais Unload Me dans le Form2
--> si dans Form1 il n'y a aucun MsgBox apres cette instruction: tout se passe bien
--> si il y a un msgBox,je retourne au debut de ma fonction.

Le code simplifié serait :

Code :

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

1
2
3
4
5
6
7
Form1 - Bouton1_click()
 ...
for i=1 to 10
Form2.Show vbModal
MsgBox("un message quelconque")
next i
end sub

Code :

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

1
2
3
4
 
Form2 - Bouton2_click()
Unload me
end sub

Si je lis bien ton code,
Ton cycle est : la form2 sera affiche, quand celle ci sera fermée, un msgbox sera decleché
Quand la boite de message sera fermée, le cycle sera répété 9 fois (for i=1 to 10)
Rien d'anormal à ce que la form2 soit réaffichée apres le msgbox

[cath007]

le poroblème c'est que quand je ferme mon Form2, il ne m'affiche pas mon MsgBox et revient au début de la fonction Bouton1_click() de la form1. Par conséquent je tombe sur une boucle infinie...
Pour pas me prendre la tete, j'ai tout simplement ôté mon MsgBox et étrangement cela fonctionne bien. Mais j'aurais quand même aimé comprendre pourquoi a chaque msgbox apres mon show vb modal (donc apres un unload du form appelé), je reviens au début de ma fonction.