Discussion :

[ITCsoft54]

Bonjour,

Je cherche a memoriser quel form affiche un autre form.

J'ai trois fenetre qui on un bouton rechercher.
quand je clique sur le bouton recherche est activer (on clique dessus quoi ^^), j'affiche un formulaire de recherche. Une fois la recherche fini, je dois remplir la fenetre qui a appeller le formulaire. Comme je peux faire ?

j'ai essayer de memoriser la fenetre dans un "Public callerRech As Form" mais au moment de l'affectation, il m'insulte : "utilisation incorrecte de la propriété" :s

Toute idée est la bien venu ^^

[LeForestier]

Bonjour,
Déclarer une variable publique
Au clic sur un des boutons tu met le nom de la forme dans la variable

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
'Dans un module public 
Public FormeAppelante As Form
 
'Dans Form1
Private Sub Command1_Click()
   Set FormeAppelante = Me
    Form2.Show
End Sub
'Dans Form2
Private Sub Command1_Click()
    Unload Me
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    FormeAppelante.Show
End Sub

Essaye ca,
A+

[zazaraignée]

Ou encore comme ceci, toujours dans un module...

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
Option Explicit
 
Private gFormAppelante As Form
 
Sub main()
    frmPrincipale.Show
End Sub
 
Public Sub QuiAppelleQui(ByRef FrmCalling As Form, ByRef frmCalled As Form)
    Set gFormAppelante = FrmCalling
    frmCalled.Show
End Sub
 
Public Sub RetourAlAppelante(ByRef frmClosing As Form)
    frmClosing.Hide
    gFormAppelante.SetFocus
    Set gFormAppelante = Nothing
End Sub
 
Public Function QuiAppelle() As String
    QuiAppelle = gFormAppelante.Name
End Function

De cette manière, il n'y a pas de variable globale publique et tu peux avoir autant de Form que tu veux et n'écrire le code qu'une seule fois.

[ITCsoft54]

Oki merci j'essaie cela lundi !
EDIT : merci c'est la deuxieme solution qui me falait !
Grand merci !