Discussion :

[rainbow14]

Bonjour,
j'ai une table qui contient une liste de pays qui appartiennent chacun à un département :

Code :

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

1
2
3
4
5
6
nom_pays	nom_dep
Pays1		Calvados
Pays2		Calvados
Pays3		Manche
Pays4		Orne
...

je souhaites sélectionner tout les pays dont le nom de département est stocké dans une variable, mais la variable peut contenir plusieurs départements, dans l'exemple Calvados et Orne pour obtenir une sélection des Pays1, Pays2 et Pays 4.

Voici une de mes tentatives (désopilantes )

Code :

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

1
2
3
SELECT [n_pays_r25].[nom_pays]
FROM N_PAYS_R25
WHERE [n_pays_r25].[nom_dep] in (";Calvados;Orne");

merci

[random]

Code :

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

1
2
 
In ("1111","2222")

[rainbow14]

merci mais
ma variable est sous la forme :
(";département;département")
mais peut être aussi (";département")
ou (";département;département;département") ...

ma variable contient qu'une chaîne de caractère

[Arkham46]

Bjr,

A part passer par une fonction VBA, je ne connais pas de solution.

Voir ma réponse au même problème sur ce lien :
http://www.developpez.net/forums/sho...35&postcount=4

[rainbow14]

salut Arkham46,
je remplis ma variable grâce à ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim l As Integer
Me.zone_geo_Dep = ""
For l = 0 To Me.F_R_Liste_Département.ListCount
If Me.F_R_Liste_Département.Selected(l) = True Then
If Me.zone_geo_Dep = "" Then
Me.zone_geo_Dep = Me.F_R_Liste_Département.Column(0, l)
Else: Me.zone_geo_Dep = Me.zone_geo_Dep & ";" & Me.F_R_Liste_Département.Column(0, l)
End If
End If
Next l

puis j'essaye d'appliquer ton exemple mais je n'arrive pas à tout comprendre dans la fonction
merci de ton aide

[Arkham46]

La fonction ExistsInList que je propose renvoit Vrai si la valeur pValue existe dans la liste pList.
Donc il suffit de la mettre en critère.

A la place de la fonction GetItemSelected que je mentionne, tu peux mettre la valeur de ton contrôle zone_geo_Dep puisqu'il contient la liste de valeurs sélectionnées.

[rainbow14]

j'ai mis ta fonction en haut (copier/coller )
puis

Code :

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

1
2
3
4
5
 
Me.F_R_Liste_Pays.RowSourceType = "Table/Requête"
strSQL = "SELECT N_PAYS_R25.NOM_PAYS FROM N_PAYS_R25 WHERE ExistsInList([N_PAYS_R25.NOM_PAYS], Me.zone_geo_Dep , ";") ;"
Me.F_R_Liste_Pays.RowSource = strSQL
Me.F_R_Liste_Pays.Requery

me retourne erreur de compilation : attendu fin d'instruction sur le ;
on dirait que c'est les guillemets

merci pour ta patience et pour ton aide

[mout1234]

Essayes

Code :

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

strSQL = "SELECT N_PAYS_R25.NOM_PAYS FROM N_PAYS_R25 WHERE ExistsInList([N_PAYS_R25.NOM_PAYS], '" & Me.zone_geo_Dep & "' , ";") ;"

[rainbow14]

j'ai toujours le même message d'erreur

[mout1234]

Code :

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

strSQL = "SELECT N_PAYS_R25.NOM_PAYS FROM N_PAYS_R25 WHERE ExistsInList([N_PAYS_R25.NOM_PAYS], '" & Me.zone_geo_Dep & "' , ';') ;"

EDIT: PS je n'ai regardé le code de la fonction ExistsInList... je suppose donc que tu l'as correctement utilisée.

[rainbow14]

plus de message d'erreur mais ma liste reste vide
j'ai effectivement utilisé la fonction ExistsInList
mais je suis pas sur de moi

je la remet ici pour mémoire et pour une aide éventuelle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function ExistsInList(pValue As String, pList As String, pDelimiter As String) As Boolean
Dim lList() As String
Dim lCpt As Integer
lList = Split(pList, pDelimiter)
For lCpt = LBound(lList) To UBound(lList)
If lList(clpt) = pValue Then
ExistsInList = True
Exit Function
End If
Next
End Function

merci

[mout1234]

plus de message d'erreur mais ma liste reste vide

Je ne vois pas pourquoi. Fais une execution paps à pas et regardes ce que vaut Me.zone_geo_Dep et surtout strSQL...

[rainbow14]

je suis repartis sur la piste de Random
certainement plus facile
j'ai mis en forme ma variable pour quelle colle avec son idée

Code :

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

  IN ("1111","2222")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim l As Integer
Me.zone_geo_Dep = ""
For l = 0 To Me.F_R_Liste_Département.ListCount
If Me.F_R_Liste_Département.Selected(l) = True Then
If Me.zone_geo_Dep = "" Then
Me.zone_geo_Dep = Chr$(34) & Me.F_R_Liste_Département.Column(0, l) & Chr$(34)
Else: Me.zone_geo_Dep = Me.zone_geo_Dep & "," & Chr$(34) & Me.F_R_Liste_Département.Column(0, l) & Chr$(34)
End If
End If
Next l

ainsi je peux simplement faire

Code :

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

1
2
Me.F_R_Liste_Pays.RowSourceType = "Table/Requête"
strSQL = "SELECT [n_pays_r25].[nom_pays] FROM n_pays_r25 WHERE [n_pays_r25].[nom_dep] IN (" & Me.zone_geo_Dep & ");"

et ça marche Youpi

merci à tout le monde