Discussion :

[Fulder]

Bonjour,
Comment peux-t-on imprimer un état, avec comme variables, une sélection multiple d'une zone de liste ? J'arrive sans problème à l'imprimer en fonction d'une liste modifiable, mais un choix à la fois.
J'ai parcouru attentivement la FAQ, et malheureusement les solutions proposées ne fonctionnent pas ... ou je ne sais pas les adapter
Si quelqu'un à la solution...

Merci d'avance.

[loufab]

Bonjour,

La technique dépend de ce qu'il y a dans cette zone liste.

Si ce sont des données d'une table, il faut travailler avec une valeur unique genre ID de cette table, identifier chacun d'eux avec le itemselected, les ranger dans une variable texte en les séparant par une virgule.

Tu devrais obtenir quelques choses comme ça

Code :

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

"1,5,7,18,6,214,45710"

Lorsque tu as ça tu l'utilise avec l'operateur SQL In directement dans la clause Where de la commande Docmd.openform

Cordialement,

[User]

Bonsoir,

Si Je suppose que ta liste multiselect "TaListe" contient en fait une liste d'identifiants, tu peux faire comme indiqué plus haut:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim str As String
Dim i As Integer
 
str = ""
 
For i = 0 To TaListe.ItemsSelected.Count - 1
str = str & TaListe.ItemData(TaListe.ItemsSelected.Item(i)) & ","
Next i
 
str = Left(str, Len(str) - 1) ' ote le dernier caractère
 
DoCmd.OpenReport "TonEtat", , , "[Identifiant] in (" & str & ")"

@+

[Fulder]

Bonjour,

J'ai suivi vos conseils et ajouter le code ci dessous, adapté à mes données :

_____________________________________

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim str As String
Dim i As Integer
 
str = ""
 
For i = 0 To Me.L_Fournisseur.ItemsSelected.Count - 1
str = str & Me.L_Fournisseur.ItemData(Me.L_Fournisseur.ItemsSelected.Item(i)) & ","

Next i
 
str = Left(str, Len(str) - 1) ' ote le dernier caractère
 
DoCmd.OpenReport "ETAT RELANCE", acViewPreview, , "T_PV.[Rep_Code FRS]in (" & str & ")"

________________________________________________


La valeur de str contient bien ce que j'ai selectionné dans la zone de liste, mais j'ai une erreur de syntaxe :
Opérateur absent dans l'expression ''(T_PV.[Rep_Code FRS] in (6900A,713A,7884V))'


J'ai probablement oublié quelque chose, mais je ne vois pas quoi.

L'ETAT RELANCE, s'appuie sur le requete suivante (le début):

Code :

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

SELECT T_PV.Echantillon, T_PV.[Rep_Code FRS], T_PV.T_Fournisseur_NomFournisseur, T_PV.[Nom appel d'offre], ...

Merci pour votre aide.

[loufab]

Bonjour,

Immédiatement je dirais un espace

Code :

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

"T_PV.[Rep_Code FRS]in ("

SQLc'estcommelefrançais,sansespacesçaneveutriendire.

Et pour les valeurs de l'opérateur In, lorsqu'elles sont alphanumérique il ne faut pas oublier le séparateur. F1

Cordialement,

[Fulder]

Ca fonctionne !!!!

J'ai corrigé les erreurs :
* l'espace
* et au lieu d'une chaine alphanumérique , j'ai utilisé un identifiant numérique.

J'ai contourné le problème car je ne sais pas adapter le code en alphanumérique :-(

Encore merci pour votre aide.

[User]

pense au tag résolu, pour ceux qui t'ont aidé