Discussion :

[Mike1971]

bonsoir,

J'ai deux zones de liste à choix multiples (filtre_type ; filtre_cours) et je souhaiterais filtrer la seconde liste (filtre_cours) en fonction de ce que j'ai sélectionné dans la première, sur la base du type de cours

par. exemple je coche "français" et seul le type de cours "français" apparait dans la seconde liste.

La solution vient peut-être de la fonction "rowsource" mais je ne sais pas comment passer cette fonction.
Je vous remercie pour votre réponse.


Je vous joins le fichier en annexe...

[hyperion13]

Salut
Trouvé ceci sur le web.
ici ou là.

[loufab]

Bonjour,

Tu as la solution ici http://blogaccess.free.fr/?p=38

Cordialement,

[tee_grandbois]

bonsoir,

par. exemple je coche "français" et seul le type de cours "français" apparait dans la seconde liste.

une précision: tu parles de cocher des valeurs, donc ta liste ne serait pas plutôt une zone de liste à sélection multiple (donc un champ multi-valué) qu'une zone de liste avec la propriété "Sélection Multiple" valorisé à: Simple ou Étendu ?

[Mike1971]

Je me permets de revenir avec mon problème de liste de choix multiple en cascade. et je mets le code sur "after update", le problème étant visiblement au niveau de la ligne rowsource...

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
Private Sub Filtre_types_AfterUpdate()
    Call SFilter_TypeCours
End Sub
 
 
Public Sub SFilter_TypeCours()
    Dim varI As Variant
    Dim strFiltreType As String
    Dim filtre As String
    Dim f As String
    Dim sql As String
 
    For Each varI In Me!Filtre_types.ItemsSelected
        If strFiltreType <> "" Then strFiltreType = strFiltreType & " OR "
        strFiltreType = strFiltreType & "[Type_cours]='" & Me!Filtre_types.ItemData(varI) & "'"
    Next varI
 
    If strFiltreType <> "" Then strFiltreType = "(" & strFiltreType & ") "
 
    Me.[Filtre_cours].RowSource = "SELECT cours.type_cours, cours.nom_cours from cours WHERE cours.type_cours =" & strFiltreType
    Me.Filtre_cours.Requery
 
End Sub

[star]

Code :

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

1
2
3
Me.[Filtre_cours].RowSource = "SELECT cours.type_cours, cours.nom_cours from cours WHERE cours.type_cours ='" & strFiltreType & "'"
    Me.Filtre_cours.Requery

Il manque les simples guillemets au niveau de la variable strFiltreType
Je ne pense pas que le Requery soit nécessaire
.

[tee_grandbois]

bonsoir,
@Mike1971: l'instruction where est mal construite:

Code :

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

Me.[Filtre_cours].RowSource = "SELECT cours.type_cours, cours.nom_cours from cours WHERE " & strFiltreType

Il manque les simples guillemets au niveau de la variable strFiltreType

@star: c'est bien une variable mais qui complète l'instruction SQL, mais, en effet, le Requery est inutile