Discussion :

[lito74]

Bonjour,
Malgré la stricte application des infos trouvées dans le forum et la faq, le filtre de la liste ne s'effectue pas !!!
Dans un formulaire, j'ai une première liste (listeType) qui comporte deux valeurs. Lorsque je choisis une valeur dans cette liste, le filtrage de la seconde liste (listeCatégorie) doit s'effectuer. Malheureusement, le choix dans ma liste est nul.... Voici mon code

Code :

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

1
2
3
4
5
6
 
Private Sub ListeType_AfterUpdate()
 ListeCatégorie.RowSource = "Select [Catégorie] From [Fiche Articles Devis Vrd]" & _
                          "where [Fiche Articles Devis Vrd].[Type]= " & Me![ListeType] & ";"
 ListeCatégorie.Requery
End Sub

Qu'est-ce qui cloche ? Merci

[Arkham46]

slt,

Code :

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

1
2
...Vrd]" & _ 
"where ...

donne : ...Vrd]where...

il manque un espace apparemment

[stéphane_ais2]

Bonjour,

Peut-être faut-il que tu appliques le filtre sur l'évenement afterupdate de ta seconde liste...

Mais si je ne m'abuse (...) cette question a été posée et abordée de multiples fois sur ce forum...

@+

SE

[lito74]

Oui effectivement, il manquait un espace, mais cela ne change rien, ma liste reste vide....

[Arkham46]

listetype c'est du texte ou du numérique?

il manque peut-être les quotes pour le texte

Code :

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

"where [Fiche Articles Devis Vrd].[Type]= '" & Me![ListeType] & "';"

[ft035580]

Ne serait ce pas une histoire de colonne liée?

[lito74]

ListeType est du texte. J'ai essayé avec les guillements : la liste est toujours vide.....
C'est un rien n'y comprendre ?

[stéphane_ais2]

Et si tu essaies :
sur l'évenement AferUpdate de ta seconde liste :

Code :

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

1
2
 
Me.Filter = "TonChampQuiFiltre = " & Me.TaPremièreListe

SE

[lito74]

stéphane_ais2 a écrit :

Et si tu essaies :
sur l'évenement AferUpdate de ta seconde liste :
Code:

Me.Filter = "TonChampQuiFiltre = " & Me.TaPremièreListe


SE

Je ne comprends pas trop la logique du filtre après la mise à jour de la liste qui doit être filtrée ????

[Arkham46]

Et si tu essaies :
sur l'évenement AferUpdate de ta seconde liste :

Code :

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

1
2
 
Me.Filter = "TonChampQuiFiltre = " & Me.TaPremièreListe

SE

heu moi non plus je comprend pas, filtrer le formulaire après maj de la 2è liste?

investige du côté de la remarque de ft035580 : est-ce la colonne liée est celle qui contient la bonne valeur?

sinon debug pour voir le code de la requête

[Faw]

Salut,
et en enlevant le Me!

Code :

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

"where [Fiche Articles Devis Vrd].[Type]= '" & ListeType & "'"

?

[stéphane_ais2]

Je reviens sur mon post qui n'était pas complet...sorry

Tu appliques le code sur la seconde liste et tu laisses uniquement le

Code :

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

Requery

sur l'AfterUpdate de ta première liste...

Et tu construis ton filtre en QBE sur la source de ta seconde liste
en renvoyant en critère ton choix de la première liste

Code :

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

[Forms]![NomDuFormulaire]![NomDeListe]

...

C'est pas cohérent :

SE

[lito74]

Bon ben, je suis passé par une requête. C'est un peu plus lourd, mais ça marche. En tout cas, c'est incompréhensible car le code de la requête est identique.....