Discussion :

[Aladin_23]

Bonjour le forum
J' ai un souci avec le code suivant d' affichage de deux sous formulaires par clic sur un bouon

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
 
 
On Error GoTo btnEdit_Err
    If Me.[Sous-formulaire Analyse 1].SourceObject = "Sous-formulaire Analyse 1]" Then
        Me.[Sous-formulaire Analyse 1].SourceObject = "Sous-formulaire Analyse 2"
        Me.btnEdit.Caption = "Afficher le Tableau croisé dynamique"
    Else
        Me.[Sous-formulaire Analyse 1].SourceObject = "Sous-formulaire Analyse 2"
        Me.btnEdit.Caption = "Afficher le graphique croisé dynamique"
    End If
 
btnEdit_Exit:
    Exit Sub
btnEdit_Err:
    MsgBox err.description
    Resume btnEdit_Exit
End Sub

Le message d' erreur est le suivant lorsque je clique sur le bouton
Impossible de trouver le champ "I" auquel il est fait rérérence dans votre expression.
J' ai fait des vérif et ne vois pas ou se situe cette erreur

Merci d' avance pour toute aide

Aladin

[mout1234]

Bonjour,


Je ne vois pas d'erreur directe dans ton code, hormis un ] suspect dans

Code :

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

    If Me.[Sous-formulaire Analyse 1].SourceObject = "Sous-formulaire Analyse 1]" Then

Piste 1:
Le message d'erreur est sans doute lié à une erreur dans l'un des sous formulaires (ou les deux)...
Commences par ouvrir manuellement chacun d'eux individuellement en direct (sans passer par un sous formulaire)

Piste 2:
Regardes de plus prés les propriétés Père /fils du controle Sous-formulaire Analyse 1