syntaxe SQL sur clause where

Bonjour,

Je suis en train d'essayer d'ouvrir un état qui sera filtrée grace à une sélection faite dans un contrôle "liste déroulante". Ca marche mais je n'arrive pas à filtrer sur plusieurs éléments de la liste en même temps (sélections multiples). Je veux par exemple que plusieurs noms soient sélectionnés dans la liste et quand j'appuie sur un bouton, un état s'ouvre avec les données de ces personnes sélectionnées.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Commande40_Click() Dim strLstPersonnes As String Dim element As Variant   'Vérifier qu'un nom a été sélectionné sinon tout imprimé If Me.LstPersonne.ItemsSelected.Count = 0 Then MsgBox "Vous allez imprimer les étiquettes pour l'ensemble du personnel !", vbExclamation DoCmd.OpenReport "EtiquettesAdresse", acViewPreview End If   For Each element In LstPersonne.ItemsSelected strLstPersonnes = strLstPersonnes & LstPersonne.ItemData(element) Next strLstPersonnes = Left(strLstPersonnes, Len(strLstPersonnes) - 1)   DoCmd.OpenReport "EtiquettesAdresse", acViewPreview, , "LISTPER2.[NOM]='" & strLstPersonnes & "'"   End Sub

---

Merci pour votre aide.

Bonjour,

Utilise In() au lieu de =

Cordialement,

et sépare chaque élément par , et mets les entre '

Comme ça ?

Code:

---

DoCmd.OpenReport "EtiquettesAdresse", acViewPreview, , LISTPER2.[NOM]IN(strLstPersonnes)

---

Code:

---

1 2 3 4 5 6

For Each element In LstPersonne.ItemsSelected strLstPersonnes = strLstPersonnes & "'" & LstPersonne.ItemData(element) & "', " Next strLstPersonnes = Left(strLstPersonnes, Len(strLstPersonnes) - 2)   DoCmd.OpenReport "EtiquettesAdresse", acViewPreview, , "LISTPER2.[NOM] in (" & strLstPersonnes & ")"

---

C'est vraiment génial !!! :D

Merci beaucoup pour votre aide toujours aussi précieuse.

Cordialement,

Fred