Discussion :

[otravaglini]

Bonjour,

J'ai construit un formulaire de recherche qui contient 4 combo box que je remplis chacune en fonction d'une liste de valeur tirée de différentes tables et pour chacune d'elles je rajoute la valeur "Tous" au début de la liste le tout grâce à une fonction VBA.

Ensuite j'utilise ces 4 combo box pour passer des critères dans une requêtes et remplir une listbox. Tout marche très bien sauf pour la valeur "Tous" qui correspond à mettre une "*" dans le critère d'une requête.

J'ai essayé de mettre un test en disant que si la valeur de ma combo="Tous" alors la valeur à prendre dans la requête doit être "*" mais je n'y arrive pas.

C'est un problème qui semble tout bête mais je bloque

Quelqu'un aurait-il un petit exemple à me transmettre pour me dépanner ?

Merci d'avance à celui qui pourra m'aider.

OT

[loufab]

Bonjour,

2 solutions

La première consiste à mettre dans la condition Where de ta colonne la formule suivante :

Code :

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

1
2
=iif([forms]![monformulaire]![Macombo]="Tous";"Like '*'";
"Like [forms]![monformulaire]![Macombo]")

La deuxième un peut plus complexe consiste à créer un liste pour tes combos composée de la manière suivante.
Une requête Union avec 2 colonnes : "TOUS" et * regroupée avec la requête classique composée de 2 colonnes contenant toutes les 2 le critères. Seule la colonne contenant Tous et les critères sera caché dans la combo.
Largeur colonne = 0;5cm
Nombre de colonne = 2

La condition Where de la requête ne contiendra alors que :

Code :

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

Like [forms]![monformulaire]![Macombo]

Cordialement,

[Nohant]

la seconde ayant largement ma préférence

la source du menu déroulant sera la forme

Code :

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

1
2
3
4
5
6
 
SELECT Champ1, Champ2
FROM TaTable
UNION
SELECT "*", "Tous"
FROM TaTable;

en supposant que champ1 corresponde au champ à utiliser comme critère dans la requête (généralement la clé de la table).