Discussion :

[Harpoon]

Salut à tous

Je cherche à recupérer les éléments sélectionés dans une listeBox afin de les injecter comme critères de recherche dans une requête.

Est il possible de le faire uniquement par les outils access, où bien uniquement par programmation.

Dans tous les cas, je suis à la ramasse pour le moment, je ne récupère rien du tout!..

Merci de votre aide

[berti]

le plus simple est de le faire par programmation. Pour récupérer tous les éléments d'un liste il faut utiliser la fonction select de la liste

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
For i = 0 To Me.liste.ListCount - 1
        'si une ligne est sélectionnée alors
        If Me.liste.Selected(i) Then
            'on met dans une variable la sélection
            'cette variable permet de générer le critère pour la requête SQL
            var= var & "((TABLES.CHAMP)=" & Me.listedepartement.Column(0, i) & ") OR "
        End If
    Next i
 
'Permet d'enlever les caractères " OR "
            If Len(var) = 0 Then
               var= strTable & ".*"
            Else
               var= Left(var, Len(var) - 3)
            End If

Il suffit d'insérer la variable var dans une requête SQL en code VB

[Harpoon]

Merci à toi!!