Discussion :

[castours]

Bonjour à tous
J'ai formulaire qui se compose d'une liste deroulante qui me filtre les enregistrements sur le nom des villes qui s'affiche sur liste multiple. Ce qui fonctionne trés bien. De cette liste a selection multiple, je choisis de un a plusieurs enregistrements qui se mettent en surbrillance. Ces enregistrement que je veux visualiser puis imprimer un etat.
J'ai utilisé la procedure de ce bouton pour essayer de filtrer un etat.
Je n'ai aucune selection et l'etat s'ouvre sans enregistrements.
Le Champ IdAdh est un champ auto donc numerique.
J'ai essayé d'enlever les apostrophes sans resultat positif.

Je travaille avec access2000
Je voudrai une aide pour trouver une solution a ce probleme.
Je vous remercie de votre aide

Guy

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
Private Sub btnListe_Click()
Dim VarI As Variant
Dim strFiltre As String
 
 
strFiltre = ""
If Me!lstAdherents.ItemsSelected.Count = 0 Then
  MsgBox "Selectionnez un ou des adhérents"
   Else
            For Each VarI In Me!lstAdherents.ItemsSelected
                If strFiltre <> "" Then Str strFiltre = strFiltre & " AND "
                strFiltre = strFiltre & "[IdAdh] ='" & _
                   Me!lstAdherents.ItemData(VarI) & "'"
            Next VarI
            Me!lstAdherents.Requery
 
            DoCmd.OpenReport "E_ListeAdherents", acViewPreview, strFiltre
End If 
End Sub

[Gabout]

Bonjour

Essaie cela

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
Private Sub btnListe_Click()
    Dim VarI As Variant
    Dim strFiltre As String
    strFiltre = ""
    If Me!lstAdherents.ItemsSelected.Count = 0 Then
        MsgBox "Selectionnez un ou des adhérents"
    Else
        For Each VarI In Me!lstAdherents.ItemsSelected
            If strFiltre <> "" Then str strFiltre = strFiltre & " OR "
            strFiltre = strFiltre & "[IdAdh] ='" & Me!lstAdherents.ItemData(VarI) & "'"
        Next VarI
        Me!lstAdherents.Requery
        DoCmd.OpenReport "E_ListeAdherents", acViewPreview, strFiltre
    End If
End Sub