Discussion :

[mbo2]

Bonjour
j'aimerais , par le biais d'une zone de liste , afficher dans un formulaire principal , 3 sous formulaire en mode feuille de données
les 3 sous formulaire s'afficherait tous dans la même zone du formulaire principal , et le passage d'un sous formulaire à un autre se ferait grace à la zone de liste .
y'aurait il un exemple sur ce site dont je pourrais m'inspirer pour implémenter
mon programme .

je vous remercie de votre aide.

[f-leb]

bonjour,

si j'ai bien compris, tu fais un seul contrôle sous-formulaire indépendant dans ton formulaire principal, puis trois formulaires liés à tes données.

Selon la valeur de ta zone de liste, tu sélectionnes le formulaire à afficher dans le formulaire principal:

Code :

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

1
2
3
4
5
6
7
8
Select Case Me.mazonedeliste.Value
    Case 1:
        Me.sousform.SourceObject = "formulaire1"
    Case 2:
        Me.sousform.SourceObject = "formulaire2"
  Case 3:
        Me.sousform.SourceObject = "formulaire3"
End Select

[Rogatic]

Hello mbo2
Essaye ça:
Tu insères d'abords tes trois sous formulaires sur ton formulaire principale
Now suppossons que tes sous formulaires se nomment
form1
form2
form3
Ta zone de liste Modifiable44 avec les valeur Form1; Form2, Form3
et ton formulaire principal se nomme FormPrinc

Tu met ce code sur la proprièté après mise à jour de ton formulaire

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
 
If Me.Modifiable44.Value = Form1 Then
Forms![FormPrinc]![Form1].Visible = True
Forms![FormPrinc]![Form2].Visible = False
Forms![FormPrinc]![Form3].Visible = False
ElseIf Me.Modifiable44.Value = Form2 Then
Forms![FormPrinc]![Form1].Visible = False
Forms![FormPrinc]![Form2].Visible = True
Forms![FormPrinc]![Form3].Visible = False
ElseIf Me.Modifiable44.Value = Form3 Then
Forms![FormPrinc]![Form1].Visible = False
Forms![FormPrinc]![Form2].Visible = False
Forms![FormPrinc]![Form3].Visible = True
End If
Me.requery

Je pense que ça va t'aider

[mbo2]

merci pour votre aide la dernière solution marche à merveille