Discussion :

[Ledaf]

Bonjour,

Voilà j'ai un formulaire contenant un sous-formulaire et un menu déroulant.
Mon but est lorsque je choisi une valeur dans mon menu déroulant, les caractéristiques du sous-formulaire relatives à cette valeur s'affichent.

Quelle est la méthode à employé?

En vous remerciant

[Ledaf]

Bon j'ai modifié quelques petits truc!
A la place du sous formulaire j'ai mis une zone de liste.
Voici le code quue j'utilise:

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
18
19
20
21
22
23
24
25
26
27
28
Private Sub liste_equipements_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub test_Click()
 
Me.liste_equipements.Visible = Not Me.liste_equipements.Visible
 
 
End Sub
 
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
SQL = "SELECT Domaine, Famille, Equipement, Qté, Marque, Numéro, Type FROM EQUIPEMENTS "
 If Me.test Then
    SQL = SQL & "And EQUIPEMENTS!Domaine ='" & Me.liste_equipements & "' "
 End If
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
Me.essai.RowSource = SQL
Me.essai.Requery
 
End Sub

"essai" est ma zone de liste
"liste_équipement" mon menu déroulant.
"EQUIPEMENTS" ma table.

Pouvez vous me dire si il y a des erreurs dans ma syntaxe?

[Jean-Philippe André]

Bonjour,
une piste peut-être plus simple à étudier, issue de la
http://access.developpez.com/faq/?page=zdl#DepZdl

[Ledaf]

Dsl je n'y arrive pas!
J'y suis depuis ce matin et j'ai pas avancé!

Quelqu'un peut m'aider?

[Jean-Philippe André]

En supposant que ton Formulaire s'appelle MonFormulaire et ton essai soit alimenté par cette requête :

Code SQL :

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

SELECT Domaine, Famille, Equipement, Qté, Marque, Numéro, Type FROM EQUIPEMENTS WHERE EQUIPEMENTS!Domaine LIKE IIF(Forms!MonFormulaire!test,Forms!MonFormulaire!liste_equipements,'*')