Discussion :

[garsflo]

bonjour à tous,
j'aimerais récupérer les valeurs sélectionnées par l'utilisateur pour en faire le critère d'une requête.
j'ai une zone de liste multisélection (le contrôle se nomme "CtrlSol") à une seule colonne qui affiche le champ "Solution".
L'utilisateur choisit une ou plusieurs valeurs.
j'ai une requête paramétrée avec la variable strWHERE comme critère.
je souhaiterai que ma requête prenne en compte un choix multiple, c'est à dire qu'elle affiche le résultat pour chaque valeur sélectionnée. Après une longue recherche j'ai utilisé ItemsSelected et For Each..Next, mais non c'est pas ça!!
voici où j'en suis dans mon code:

Code :

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

1
2
3
4
5
6
7
Dim VarSol As Variant
For Each VarSol In Me!CtrlSol.ItemsSelected
Me!CtrlSol.Selected(VarSol) = True
NextVarSol
If Not IsNull(Me!CtrlSol) Then
strWHERE = strWHERE + " And (([MaTable].Solution) = [Forms]![MonFormulaire]![CtrlSol].[Selected(VarSol)])"
End If

pas vraiment expert, je suis peut être loin du but!!!
pouvez vous me donner un indice ou une aide qui pourrait me débloquer!!
merci à tous

[LedZeppII]

Bonjour,

Non tu n'es pas loin du but recherché.
Comme il y a plusieurs choix, il faut mettre des OR entres les différents choix.
-> WHERE (Champ=choix1 OR Champ=Choix2 ... OR Champ=Choixn)
On peut aussi utliser la clause IN (valeur1, valeur2, ..., valeurn)
-> WHERE Champ IN (choix1, choix2, ..., choixn)

Voila comment je farai.

Code :

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

1
2
3
4
5
6
7
8
Dim VarSol AS Variant, strCrit As String
strCrit=""
FOR Each VarSol IN Me!CtrlSol.ItemsSelected
  if strCrit <> "" Then strCrit = strCrit & " OR "
  strCrit = strCrit & "[MaTable].Solution = '" & Me.CtrlSol.ItemData(VarSol) & "'"
Next VarSol
If strCrit <> "" Then strWHERE = strWHERE & "(" & strCrit & ")"
End IF

La variable intermédiare strCrit sert à construire le critère sur le champ [MaTable].Solution.
Si le champ Solution n'est pas de type texte, mais numérique remplacer

Code :

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

strCrit = strCrit & "[MaTable].Solution = '" & Me.CtrlSol.ItemData(VarSol) & "'"

par

Code :

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

strCrit = strCrit & "[MaTable].Solution = " & Me.CtrlSol.ItemData(VarSol)

A+

[garsflo]

merci LedZeppII, je vais tester ça...

[garsflo]

super ca fonctionne parfaitement...un grand merci à tous et plus particulièrement à LedZeppII.

[sousleau12]

Bonjour

Je rebondis sur votre poste suivant, même s'il date un peu.

En fait, je suis en cours de tentative pour effectuer la même chose que vous.

Pour le moment, j'arrive à ouvrir un état (qui dépend d'une requête) par un choix dans une zone de liste. Mais si je met la propriété selection multiple = étendu pour la zone de liste, mon état ne s'ouvre plus.

Je voulais tenter de reprendre votre code pour l'adpter.

Dedans, vous parlez de requête paramétrée avec variable pour la condition where.

La requête qui ouvre l'état est une requête parametrée. Mais ou indique-ton- la variable pour la condition where ?

Merci d'avance pour votre aide

Anne Sophie

bonjour à tous,
j'aimerais récupérer les valeurs sélectionnées par l'utilisateur pour en faire le critère d'une requête.
j'ai une zone de liste multisélection (le contrôle se nomme "CtrlSol") à une seule colonne qui affiche le champ "Solution".
L'utilisateur choisit une ou plusieurs valeurs.
j'ai une requête paramétrée avec la variable strWHERE comme critère.
je souhaiterai que ma requête prenne en compte un choix multiple, c'est à dire qu'elle affiche le résultat pour chaque valeur sélectionnée. Après une longue recherche j'ai utilisé ItemsSelected et For Each..Next, mais non c'est pas ça!!
voici où j'en suis dans mon code:

Code :

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

1
2
3
4
5
6
7
Dim VarSol As Variant
For Each VarSol In Me!CtrlSol.ItemsSelected
Me!CtrlSol.Selected(VarSol) = True
NextVarSol
If Not IsNull(Me!CtrlSol) Then
strWHERE = strWHERE + " And (([MaTable].Solution) = [Forms]![MonFormulaire]![CtrlSol].[Selected(VarSol)])"
End If

pas vraiment expert, je suis peut être loin du but!!!
pouvez vous me donner un indice ou une aide qui pourrait me débloquer!!
merci à tous

[LedZeppII]

Bonjour,

La variable strWHERE de garsflo est utilisée pour l'argument ConditionWhere de DoCmd.OpenReport

Code : syntaxe de OpenReport :

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

DoCmd.OpenReport NomEtat, Afficher, NomFiltre, ConditionWhere

ConditionWhere est du texte contenant une expression SQL qui sera utilisée pour filtrer les données sources de l'état.

Exemple:

Code vba :

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

DoCmd.OpenReport "Etat1", , , strWHERE

La requête de l'état n'a pas besoin d'être paramétrée si on utilise l'argument ConditionWhere.
Elle peut l'être, mais il vaut mieux dans ce cas, que les paramètres ne soient pas utilisés pour filtrer des champs se trouvent aussi dans ConditionWhere.
Autrement on cumule les critères sur un même champ.

Dans ton cas, je suppose que la requête de ton état utilise le nom de ta zone de liste en tant que paramètre.
Si tu utilises ConditionWhere, il faudra enlever le paramètre de ta requête.

A+