Mon formulaire1 comprend un contr=F4le onglet, et sur ce contr=F4le
onglet j'ai un sous formulaire1 en Affichage par d=E9faut =AB mode
continue =BB avec un contr=F4le btn1 qui ouvre un formulaire2.
Je voudrais, lorsque j'ouvre le formulaire2 faire dispara=EEtre le
formulaire1 et le faire r=E9appara=EEtre lorsque je le ferme.
Le code ci-dessous me donne une erreur =AB sous formulaire1 introuvable
=BB
Code du formulaire2
Private Sub Form_Unload(Cancel As Integer)
'--- R=E9affiche le menu
If IsLoaded("formulaire1") Or IsLoaded("sous formulaire1") Then
Forms(Nz(Me.OpenArgs)).Visible =3D True
End If
End Sub
Code du contr=F4le Btn1
Private Sub btn1_Click()
On Error GoTo Err_Form_Click
Dim stDocName As String
Dim stLinkCriteria As String
Forms![formulaire1].Visible =3D False
StDocName =3D "formulaire2"
DoCmd.OpenForm stDocName, , , stLinkCriteria, OpenArgs:=3DMe.Name
Exit_Form_Click:
Exit Sub
Err_Form_Click:
MsgBox err.Description
Resume Exit_Form_Click
End Sub
