Discussion :

[Dr Byby'San]

Bonjour,

J'ai créé un formulaire sous Access ou il y a une zone de liste (choix multiple) me présentant 10 villes. Ca c'est ok.
Je souhaiterais utiliser la sélection des villes dans une de mes requêtes pour faire du filtrage (pour ne prendre que les lignes où le numéro correspondant à la ville soit dans la liste sélectionnée). Et là je sais pas comment récupérer les valeur sélectionnées, ni les utiliser dans cette requête de filtre.

Merci !

[Jeannot45]

Cela se passera obligatoirement par du code.

1) récupérer les valeurs sélectionnées dans la liste en créant une chaine de caractères par concaténation des valeurs récupérées
2) Créer la chaine SQL correspondant à la requête à exécuter et inclure la chaine précédemment générée dans la clause WHERE en utilisant l'opérateur IN(Chaine de critères)

Bonne continuation

[Dr Byby'San]

Comment fait on pour récupérer les valeur sélectionnées ?

[Jeannot45]

Voilà un petit exemple pour récupérer les valeurs sélectionnées et en même temps après récupération supprimer la sélection

Bonne continuation

[Dr Byby'San]

Ok ...
Je récupère donc mes valeurs sélectionnées.
Je souhaiterais maintenant faire une requête de filtre sur une base en ne gardant que les enregistrements qui contiennent ma sélection.

Dans ton exemple, j'ai choisi deux types de films/livres. Et je souhaiterais maintenant fabriquer une requête qui me permettrait d'afficher que les films/livres qui sont dans mes catégories choisies (aventure, policier, ...)

Une idée ?

[Antoun]

Hello !

Tu as deux approches :

1) l'approche "SQL encapsulé dans VB" : à la suite de la procédure de Jeannot, tu fais un truc du genre :

Code :

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

1
2
3
strSelection = replace(strSelection, "'", "''") ' on double les apostrophes
strSelection = replace(strSelection, ";", "', '") ' on est encadre chaque élément par des apostrophes
SQL = "SELECT... FROM ... WHERE Genre IN ('" & strSelection & "') ;"

Ensuite tout dépend de ce que tu veux faire avec ta requête...

2) l'approche "indépendance entre VB et SQL"

Dans ce cas, je réécris ainsi la macro de Jeannot :

Code :

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

1
2
3
4
5
DoCmd.RunSQL "CREATE TABLE Sel (Genre VARCHAR(50)) ;"
' Boucle sur tous les éléments sélectionnés dans la liste
For Each varSelectGenre In lstGenre.ItemsSelected
    DoCmd.RunSQL "INSERT INTO Sel(Genre) VALUES ('" & lstGenre.ItemData(varSelectGenre) & "') ;"
Next varSelectGenre

Ensuite, tu fais ta requête en jointurant une table avec les genres sur Sel... que tu détruiras après... ça dépend un peu si ta base est censée avoir des utilisateurs concurrents ou pas ?

[Dr Byby'San]

Yes !
J'ai réussi grâce à vous !

Merki !