Discussion :

[jmde]

Bonsoir,

Mon formulaire1 comprend un contrôle onglet, et sur ce contrôle onglet j’ai un sous formulaire1 en Affichage par défaut « mode continue » avec un contrôle btn1 qui ouvre un formulaire2.

Je voudrais, lorsque j’ouvre le formulaire2 faire disparaître le formulaire1 et le faire réapparaître lorsque je le ferme.

Le code ci-dessous me donne une erreur « sous formulaire1 introuvable »

Code du formulaire2

Code :

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

1
2
3
4
5
6
Private Sub Form_Unload(Cancel As Integer)
'--- Réaffiche le menu
     If IsLoaded("formulaire1") Or IsLoaded("sous formulaire1") Then
        Forms(Nz(Me.OpenArgs)).Visible = True
     End If
End Sub

Code du contrôle Btn1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btn1_Click()
On Error GoTo Err_Form_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    Forms![formulaire1].Visible = False
    StDocName = "formulaire2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, OpenArgs:=Me.Name
Exit_Form_Click:
    Exit Sub
Err_Form_Click:
    MsgBox err.Description
    Resume Exit_Form_Click
End Sub

Merci pour votre aide.

Salutations

[LedZeppII]

Bonsoir,

Essaie d'enlever Or IsLoaded("sous formulaire1").
Je crois que les sous-formulaires ne sont pas visibles dans la collection Forms.
On ne peut les voir qu'en tant que contrôle d'un Formulaire ouvert.

A+

[jmde]

Re Bonsoir,

Merci pour ta réponse j'ai essayé le code suivant sans succès.

Code :

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

1
2
3
4
5
6
Private Sub Form_Unload(Cancel As Integer)
'--- Réaffiche le menu
     If IsLoaded("formulaire1") Then
        Forms(Nz(Me.OpenArgs)).Visible = True
     End If
End Sub

et Me.OpenArgs prend la valeur "sous formulaire1"

Salutations.

[LedZeppII]

Bonsoir,

J'avais pas vu le OpenArgs.
Voila comment on pourrai faire :

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
Private Sub btn1_Click()
On Error GoTo Err_Form_Click
    Dim stDocName As String, stDocAmasquer As String
    Dim stLinkCriteria As String     
    stDocAmasquer = Me.Name  ' Par défaut formulaire contenant ce code
    On Error Resume Next                 ' Ignorer Erreur
       stDocAmasquer = Me.Parent.Name    ' Essaie Formulaire Parent 
    On Error Goto Err_Form_Click          
    Forms(stDocAmasquer ).Visible = False
    StDocName = "formulaire2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, OpenArgs:=stDocAmasquer 
Exit_Form_Click:
    Exit Sub
Err_Form_Click:
    MsgBox err.Description
    Resume Exit_Form_Click
End Sub

Pour bien utiliser OpenArgs j'écrirai comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Unload(Cancel As Integer)
'--- Réaffiche le menu
     Dim stDocName As String
     stDocName = Nz(Me.OpenArgs)
     If stDocName <>"" then
        If IsLoaded(stDocName) Then
           Forms(stDocName).Visible = True
        End If
     End If
End Sub

Comme ça, quel que soit le formulaire qui ouvre Formulaire2 en donnant son nom dans OpenArgs,
Formulaire2 essaiera de le rendre visible.

J'espère que ça répond mieux à ton attente.
A+

[jmde]

Bonjour LeddZepII.

Merci pour ta solution elle fonctionne correctement.

Salutations