Discussion :

[fpecastaing]

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 :

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

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.

[loufab]

Bonjour,

Utilise In() au lieu de =

Cordialement,

[Kloun]

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

[fpecastaing]

Comme ça ?

Code :

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

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

[Kloun]

Code :

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

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 & ")"

[fpecastaing]

C'est vraiment génial !!!

Merci beaucoup pour votre aide toujours aussi précieuse.

Cordialement,

Fred