Critères multiples sur liste déroulante

Le
Verreux Pierre
Bonjour, en Access 2003, j'ai une liste déroulante avec sélection multiple.
Après avoir sélectionneé plusieures lignes, j'essaye de lancer une requête à
partir de cette liste, ça ne marche pas. Dès l'instant ou je modifie la
propriété de ma liste déroulante : "sélection multiple" en "aucun" là je
suis placé sur un seul enregistrement et ma requête fonctionne. En cherchant
dans l'aide, je m'appercois qu'une liste déroulante a selection multiple
renvoie une valeur null, est-il possible de détourner le problème ?
Merci pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #18333131
Verreux Pierre a écrit :
Bonjour, en Access 2003, j'ai une liste déroulante avec sélection multiple.
Après avoir sélectionneé plusieures lignes, j'essaye de lancer une requête à
partir de cette liste, ça ne marche pas. Dès l'instant ou je modifie la
propriété de ma liste déroulante : "sélection multiple" en "aucun" là je
suis placé sur un seul enregistrement et ma requête fonctionne. En cherchant
dans l'aide, je m'appercois qu'une liste déroulante a selection multiple
renvoie une valeur null, est-il possible de détourner le problème ?
Merci pour votre aide.




Salut,
Soit Liste_Catégorie une liste

'Integration filtre sur Catégorie
StrIn = ""
If Me.Liste_Categorie.Selected(0) <> True Then 'Si <Toutes> pas
selectionné
For Each VarI In Me.Liste_Categorie.ItemsSelected
StrIn = StrIn & "'" & Left(Me.Liste_Categorie.Column(0,
VarI), 1) & "',"
Next VarI
If StrIn <> "" Then
If Mon_Filtre1 <> "" Then
Mon_Filtre1 = Mon_Filtre1 & " AND "
End If
Mon_Filtre1 = Mon_Filtre1 & " Left([Categorie],1) in ( " &
Left(StrIn, Len(StrIn) - 1) & ") "
End If
End If
à adapter ...
@+
Verreux Pierre
Le #18333121
Merci, ça m'aide bien
@+
"Fabien" news:
Verreux Pierre a écrit :
> Bonjour, en Access 2003, j'ai une liste déroulante avec sélection


multiple.
> Après avoir sélectionneé plusieures lignes, j'essaye de lancer une


requête à
> partir de cette liste, ça ne marche pas. Dès l'instant ou je modifie la
> propriété de ma liste déroulante : "sélection multiple" en "aucun" là je
> suis placé sur un seul enregistrement et ma requête fonctionne. En


cherchant
> dans l'aide, je m'appercois qu'une liste déroulante a selection multiple
> renvoie une valeur null, est-il possible de détourner le problème ?
> Merci pour votre aide.
>
>
Salut,
Soit Liste_Catégorie une liste

'Integration filtre sur Catégorie
StrIn = ""
If Me.Liste_Categorie.Selected(0) <> True Then 'Si <Toutes> pas
selectionné
For Each VarI In Me.Liste_Categorie.ItemsSelected
StrIn = StrIn & "'" & Left(Me.Liste_Categorie.Column(0,
VarI), 1) & "',"
Next VarI
If StrIn <> "" Then
If Mon_Filtre1 <> "" Then
Mon_Filtre1 = Mon_Filtre1 & " AND "
End If
Mon_Filtre1 = Mon_Filtre1 & " Left([Categorie],1) in ( " &
Left(StrIn, Len(StrIn) - 1) & ") "
End If
End If
à adapter ...
@+


Publicité
Poster une réponse
Anonyme