Discussion :

[bertin19]

Bonjour à tous,
j'ai une zone de liste, avec choix multiple autorisé, contenant une colonne du type texte et une colonne de type numérique. Je souhaite ouvrir un RecordSet qui sera filtrer en fonction de toutes les valeurs selectionnées dans la zonne de liste.

Illustration :
Zone de liste :
colonne1 : AG 01, AG 02, AG 03, ....
colonne2: 1, 2, 3, 4, ....

Si je sélectionne les trois premières lignes de la zone de liste, par exemple, je souhaite ouvrir le RecordSet en le filtrant en fonction de la selection. Et aussi compter le nombre d'enregistrement qu'il contient.

Est-ce que quelqu'un peut m'aider ? Je galère !

[Gabout]

Bonjour,

A titre d'exemple, tu trouveras un exemple qui répond (en partie) à tes questions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdFiltre_Click()
    Dim varI As Variant
    Dim sFiltre As String
    sFiltre = ""
    If Me.lstMarques.ItemsSelected.Count = 0 Then
        MsgBox "Aucune marque n'a été sélectionnée"
    Else
        For Each varI In Me!lstMarques.ItemsSelected
            If sFiltre <> "" Then sFiltre = sFiltre & " OR "
            sFiltre = sFiltre & "[Marque]=" & Me!lstMarques.ItemData(varI)
        Next varI
        DoCmd.OpenForm "frmModeles", acNormal, , sFiltre
    End If
End Sub

Tu pourras utiliser sFiltre pour définir la condition WHERE de ton recordset.

A+

[bertin19]

Bonjour,
j'ai essayé de tester le code. Mais j'ai un p'tit soucis. En fait je veux après avoir fait le filtrage, afficher dans un MsgBox le nombre d'enregistrements. As-tu une idée ?

[Gabout]

As-tu testé sur clic d'un bouton de commande

Code :

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

Msgbox (Me.lstMarques.ItemsSelected.Count & "enregistrement(s)")

Il faut bien sûr remplacer lstMarques par le nom de ta liste...

[Gabout]

J'ai peut être mal compris si c'est le nombre d'enregistrements résultant de ta liste multiple.

Dans ce cas, tu crées ton recordset en utilisant comme je te le disais

Tu pourras utiliser sFiltre pour définir la condition WHERE de ton recordset.

et tu comptes les enregistrements résultant en DAO (cf. l'excellent tuto de Christophe Warin) : Accès aux données : DAO

[bertin19]

J'ai testé sur click d'un bouton. Le code que j'ai utilisé est le suivant :

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
18
19
20
21
22
23
Private Sub cmdFiltre_Click()
    Dim varI As Variant
    Dim sFiltre As String
    Dim MaBD As Database
    Dim MaRequete As Recordset
    Dim NbEnreg As Integer
 
    sFiltre = ""
    If Me.choix_proprietaire.ItemsSelected.Count = 0 Then
        MsgBox "Aucune marque n'a été sélectionnée"
    Else
        For Each varI In Me!choix_proprietaire.ItemsSelected
            If sFiltre <> "" Then sFiltre = sFiltre & " OR "
            sFiltre = sFiltre & "[code_secteur]=" & Me!choix_proprietaire.ItemData(varI)
        Next varI
 
   Set MaBD = CurrentDb()
   Set MaRequete = MaBD.OpenRecordset("R_proprietaire_publipostage", sFiltre)
   NbEnreg = MaRequete.RecordCount
   MsgBox NbEnreg
 
   End If
End Sub

avec code_secteur, de type texte, et colonne de ma zone de liste.

Il me dit qu'il y a une erreur de conversion de type de données.