Discussion :

[passe]

Actuellement, j'utilise la procédure suivante pour renseigner une TextBox "txt_liste" à partir de la sélection dans la ListBox "lst_enseigne".

Private Sub cmd_comparatif_enseigne_Click()
On Error GoTo Erreur

Dim strEnseigne0 As String, strEnseigne As String, varData As Variant, i As Byte
i = 1

For Each varData In Me.lst_enseigne.ItemsSelected
If i = 1 Then
strEnseigne = "In(""" & Me.lst_enseigne.ItemData(varData) & """"
Else
strEnseigne = strEnseigne & ";""" & Me.lst_enseigne.ItemData(varData) & """"
End If
i = i + 1
Next
strEnseigne = strEnseigne & ")"
Me.txt_liste.Value = strEnseigne
DoCmd.OpenQuery "r_enseigne_moy_multi"

Fin:
Exit Sub

Erreur:
MsgBox Err.Number & " " & Err.Description
Resume Fin

End Sub

Et je paramètre la requête "r_enseigne_moy_multi" avec :

[Formulaires]![f_Menu]![txt_liste]

Mais je pense me heurter à un problème de séparateur...car la feuille de réponse est vide !

Patrick

[DMboup]

Mais je pense me heurter à un problème de séparateur...car la feuille de réponse est vide !
Patrick

Ta feuille est vide parce que rien n'est choisi dans ta liste.

D'autre part j'espères que tu ne veux pas comparer par rapport à toutes les valeurs de ta liste. Car

[Formulaires]![f_Menu]![txt_liste]

ne compare que sur une valeur que tu doit choisir en plus.

[passe]

Rappel : la TextBox est alimentée par une procédure qui concataine une chaîne de caractères à partir des items sélectionnés dans la ListBox.

Une sélection multiple est bien réalisée et, si les items Toto, Titi et Tata sont sélectionnés dans la ListBox, après exécution de la procédure la TextBox (txt_liste) contient In("Toto";"Titi";"Tata").

La table interrogée contient bien des enregistrements avec Toto, Titi, Tata.

Si l'expression [Formulaires]![f_Menu]![txt_liste] est utilisé pour créer un champ calculé dans une requête elle affiche bien In("Toto";"Titi";"Tata").

[DMboup]

...(txt_liste) contient In("Toto";"Titi";"Tata").

1 - remplace les ; par des ,

Code :

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

1
2
 
In("Toto", "Titi", "Tata")

2 - peut être que le In doit être utiliser comme ceci

Code :

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

1
2
 
In [Formulaires]![f_Menu]![txt_liste]

avec txt_liste contenant ("Toto", "Titi", "Tata").

[LedZeppII]

Bonjour,

J'ai l'impression qu'on ne peut pas utiliser un paramètre avec l'opérateur IN dans une requête paramètrée.

A+

[passe]

Si pas de prédicat In, dois-je envisager une solution avec des Ou ?

[LedZeppII]

Essaie une restriction du type

Code :

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

InStr(1,[Formulaires]![f_Menu]![txt_liste],"""" & [LeChampAtester] & """")>0

dans ta requête

[passe]

Parfait, cette fonction me donne toute satisfaction.
Merci pour ton aide