Filtre avec zone de liste déroulante

**petitloup71** · 07/07/2006, 17h12

Bonjour,

Comment faire pour filtrer un formulaire grace à un filtre déroulant.

Je sais faire cela en créant un formulaire pour mettre la variable puis exécuter la requete. Mais moi je voudrai lancer ce filtre directement sur le formulaire.

MErci d'avance, en enspérant avoir été clair. :-)

**FreeAccess** · 07/07/2006, 17h22

Bonjour,
Dans une de mes applications, j'avais ce type de filtre à partir d'une liste déroulante:
Sur ton formulaire tu crée une zone de liste déroulante (Modifiable01) basée sur une table ou une requête et sur l'événement 'Sur clic' de ta ZDL, tu tape le code suivant:

Code :

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

1
2
3
4
5
6
Private Sub Modifiable01_Click()
Dim strwhere As String
strwhere = "Categorie = '" & Modifiable01 & "'"
    Me.Filter = strwhere
    Me.FilterOn = True
End Sub

Ici "Catégorie" est le champ sur lequel sera filtré ton formulaire.

Bonne continuation.

**FreeAccess** · 07/07/2006, 17h27

Re,
En complément à mon post précédent, tu peux également rajouter sur ton formulaire, un bouton de commande te permettant d'annuler le filtre choisi

Code :

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

1
2
3
4
Private Sub CmdTOUT_Click()
Me.FilterOn = False
Me.Modifiable01 = Null
End Sub

En adaptant à ton application cela devrait fonctionner

**petitloup71** · 07/07/2006, 18h15

Merci pour l'info.
Mais je n'arrive pas à faire fonctionner le filtre.
Dans le contenu de la liste déroulante, j'ai mis le champ que je souhaite filtré.
toutes mes lignes (même celles qui sont les mêmes) apparaissent dans ma liste déroulante.
et lorsque je fais une sélection, rien ne s'affiche.

**FreeAccess** · 07/07/2006, 18h26

Re,

toutes mes lignes (même celles qui sont les mêmes) apparaissent dans ma liste déroulante

La je ne comprends pas ce que tu veux dire

Ta ZDL est bien est une zone de liste indépendante basé sur une requête ou éventuellemnt sur une liste de valeur

Par exemple, tu peux très bien avoir comme Contenu de ta ZDL, les valeurs Monsieur;Madame;Mademoiselle. Ces valeurs doivent correspondrent à une valeur d'un des champs figurant sur ton formulaire.
En choisissant Monsieur, ton formulaire ne fera apparaitre que les enregistrements correspondants à cette valeur.

[EDIT]
Si ta ZDL est basée sur une requête, il faut faire un regroupement pour ne pas afficher de doublon

**User** · 07/07/2006, 18h39

Pour prolonger le code de FreeAccess:

Code :

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

1
2
strwhere = "Categorie = '" & Modifiable01 & "'"
    Me.Filter = strwhere

si tu as plusieurs champ, plusieurs colonnes dans ta liste..

Il faut que la valeur renvoyé par Modifiable01 corresponde au champ categorie de la table.

Vérifie la propriété Colonne liée corresponde au champ categorie de la table ou requête source de la liste (RowSource)

ou alors utilise Modifiable01.Column(i)

ou i est le numéro de colonne (correspondant à catégorie) dans ta liste

@+

**petitloup71** · 07/07/2006, 20h02

ce que je voulais dire c'est que les valeurs de mon champ se répètent plusieurs fois
Catégorie 1
Catégorie 1
Cétgaorie 3, etc, j'ai résolu en créant une nouvelle table

mais le problème c'est que le filtre ne fonctionen toujorus pas.

lorsuqe je sélection une valeur dans la liste, j'ai un message qui me dit :entrer la valeur du paramètre "nom du champ" qui apparait, alros que j'ai bien mis le bon nom du champ dans le code.

**FreeAccess** · 07/07/2006, 20h32

Comme je l'ai dis dans mon post précédent, pour éviter d'avoir des valeurs qui se répétent dans ta ZDL, il faut faire un regroupement dans ta requête.

Regarde bien le fonctionnement, et si tu as encore des problèmes, reviens nous voir

Bonne continuation.

**petitloup71** · 08/07/2006, 09h57

Salut!

C'est super sympa d'avoir réalisée cette application.
J'ai fais exactement la même chose que toi, mais ça ne fonctionne tjrs pas. Je ne comrpends pas.
Je t'ai joint le fichier si tu souhaites y regarder.
en tout cas merci.