Bonjour a tous

Dans un formulaire , j'ai une liste deroulante qui me selectionne les adherents d'une meme ville dans une liste multiselect.

De cette liste je selectionne certains enregistrements que je voudrai imprimé dans un etat.

J'ai utilisé ce code d'un bouton , mais le résultat est negatif. Mon état est vide. Pouvez vous m'aider ?

J'utilise access 2000

J'ai trouvé ce code sur un site.

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
    

            DoCmd.OpenReport "E_ListeAdherents", acViewPreview, strFiltre, IdAdh = False
End If
End Sub

IdAdh est un champ auto donc numerique.

Le filtre avec ou sans apostrophes ne fonctionne pas.

Pouvez vous m'indiquer ou se situe  les erreurs.

Je vous remercie de votre aide.

Guy cassat