Liaisons entre forms

Salut à tous !

J'ai un prob assez basique j'immagine:
J'ai 2 forms, sur le premier j'ai 2 boutons
1 pour ourvrir form2
et 1 pour fermer form2

Lorsque j'écris:
private sub click_monbouton1(....)
dim myform as new form2
myform.show()
end sub

Comme puis-je depuis una autre procédure: private sub click_monbouton2(....)
accéder à l'objet myform pour le fermer ?

Merci à tous pour vos infos !!

Max

John Smith a écrit :

Salut à tous !

J'ai un prob assez basique j'immagine:
J'ai 2 forms, sur le premier j'ai 2 boutons
1 pour ourvrir form2
et 1 pour fermer form2

Lorsque j'écris:
private sub click_monbouton1(....)
dim myform as new form2
myform.show()
end sub

Comme puis-je depuis una autre procédure: private sub
click_monbouton2(....)
accéder à l'objet myform pour le fermer ?

Merci à tous pour vos infos !!

Max

Bonjour,

Ne pas déclarer myform en local :

Option Explicit
Dim MyForm As Form

Private Sub Command1_Click()
Set MyForm = New Form2
MyForm.Show
End Sub

Private Sub Command2_Click()
If MyForm Is Nothing = False Then
Unload MyForm
End If
End Sub


--
Cordialement,

Jacques.

John Smith a écrit :

Salut à tous !

J'ai un prob assez basique j'immagine:
J'ai 2 forms, sur le premier j'ai 2 boutons
1 pour ourvrir form2
et 1 pour fermer form2

Lorsque j'écris:
private sub click_monbouton1(....)
dim myform as new form2
myform.show()
end sub

Comme puis-je depuis una autre procédure: private sub
click_monbouton2(....)
accéder à l'objet myform pour le fermer ?

Merci à tous pour vos infos !!

Max

Bonjour,

Ne pas déclarer myform en local :

Option Explicit
Dim MyForm As Form

Private Sub Command1_Click()
Set MyForm = New Form2
MyForm.Show
End Sub

Private Sub Command2_Click()
If MyForm Is Nothing = False Then
Unload MyForm
End If
End Sub


--
Cordialement,

Jacques.

Plutôt

Private Sub Command2_Click()
If Not(MyForm Is Nothing) Then Unload MyForm
End Sub