Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Filtrer avec une Zone de liste dans une requête

Filtrer avec une Zone de liste dans une requête

2 réponses
Avatar
Tony
Hello tous le monde.
J'ai une liste de fournisseur dans une "zone de liste" avec A97 et
j'aimerais utilisé les fournisseur sélectionnés pour filtrer un état.
Mais je sèche depuis plusieurs jour.

Avec une zone de liste modifiable pas de soucis mais cela filtre uniquement
sur un seul fournisseur.

Par avance mci et bonne journée.
T. Bouquet
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabien
Tony a écrit :
Hello tous le monde.
J'ai une liste de fournisseur dans une "zone de liste" avec A97 et
j'aimerais utilisé les fournisseur sélectionnés pour filtrer un état.
Mais je sèche depuis plusieurs jour.

Avec une zone de liste modifiable pas de soucis mais cela filtre
uniquement sur un seul fournisseur.

Par avance mci et bonne journée.
T. Bouquet



Bonjour,
Avec une boucle genre
Dim VarI As Variant
Dim StrInAct as String
StrInact=""
If Me.Maliste.Selected(0) <> True Then
For Each VarI In Me.Maliste.ItemsSelected
Si le champ est numérique :
StrInAct = StrInAct & Me.Maliste.Column(0, VarI) & ","
ou
Si le champ est alpha :
StrInAct = StrInAct & "'" & Me.Maliste.Column(0, VarI) & "',"
Next VarI
End If
If strinact<>"" then
StrinAct=left(StrInAct,len(StrInAct)-1)
Docmd.openreport "Monrapport",,,"[MonChampTest] in (" & StrinAct & ")"
Else
Docmd.openreport "MonRapport"
Endif
@+
Avatar
Tony
Hello.
Super c'est cela qu'il me fallait..
Bonne soirée
T. Bouquet

"Fabien" a écrit dans le message de
news:
Tony a écrit :
Hello tous le monde.
J'ai une liste de fournisseur dans une "zone de liste" avec A97 et
j'aimerais utilisé les fournisseur sélectionnés pour filtrer un état.
Mais je sèche depuis plusieurs jour.

Avec une zone de liste modifiable pas de soucis mais cela filtre
uniquement sur un seul fournisseur.

Par avance mci et bonne journée.
T. Bouquet



Bonjour,
Avec une boucle genre
Dim VarI As Variant
Dim StrInAct as String
StrInact=""
If Me.Maliste.Selected(0) <> True Then
For Each VarI In Me.Maliste.ItemsSelected
Si le champ est numérique :
StrInAct = StrInAct & Me.Maliste.Column(0, VarI) & ","
ou
Si le champ est alpha :
StrInAct = StrInAct & "'" & Me.Maliste.Column(0, VarI) & "',"
Next VarI
End If
If strinact<>"" then
StrinAct=left(StrInAct,len(StrInAct)-1)
Docmd.openreport "Monrapport",,,"[MonChampTest] in (" & StrinAct & ")"
Else
Docmd.openreport "MonRapport"
Endif
@+