OVH Cloud OVH Cloud

Guillemets dans variables string

1 réponse
Avatar
Gringo
Surement une p'tit facile !

J'aimerais savoir comment faire pour afficher ma variable=20
sans que le code ne cause d'erreur. Dans ce cas ci, un de=20
mes ItemData est "Soci=E9t=E9s d'assurance" L'apostrope cause=20
un probl=E8me car le code le consid=E8re comme une guillement=20
simple. Voici le r=E9sultat de ma variable:=20

[MEMBRE=3D-1]AND ([Sous-Secteur]=3D 'Soci=E9t=E9s d'assurance')

Voici le code pour obtenir la variable:
StFiltre=3D [MEMBRE=3D-1]

Set ctl =3D Me.lstSousSecteurs
For Each varItm In ctl.ItemsSelected
stFiltre =3D stFiltre & "[Sous-secteur]=3D'" &=20
ctl.ItemData(varItm) & "' OR "
stValeur =3D stValeur & ctl.ItemData(varItm)=20
& ", "
Next varItm
stFiltre =3D Left(stFiltre, Len(stFiltre) - 3)
stFiltre =3D stFiltre & ")"
stValeur =3D Left(stValeur, Len(stValeur) - 2)

1 réponse

Avatar
Anor
Bonjour,

Non testé, mais ...

stFiltre = stFiltre & "[Sous-secteur]=" & chr$(34) & ctl.ItemData(varItm) & chr$(34) & " OR "
stValeur = stValeur & ctl.ItemData(varItm) & ", "

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Gringo :
| Surement une p'tit facile !
|
| J'aimerais savoir comment faire pour afficher ma variable
| sans que le code ne cause d'erreur. Dans ce cas ci, un de
| mes ItemData est "Sociétés d'assurance" L'apostrope cause
| un problème car le code le considère comme une guillement
| simple. Voici le résultat de ma variable:
|
| [MEMBRE=-1]AND ([Sous-Secteur]= 'Sociétés d'assurance')
|
| Voici le code pour obtenir la variable:
| StFiltre= [MEMBRE=-1]
|
| Set ctl = Me.lstSousSecteurs
| For Each varItm In ctl.ItemsSelected
| stFiltre = stFiltre & "[Sous-secteur]='" &
| ctl.ItemData(varItm) & "' OR "
| stValeur = stValeur & ctl.ItemData(varItm)
| & ", "
| Next varItm
| stFiltre = Left(stFiltre, Len(stFiltre) - 3)
| stFiltre = stFiltre & ")"
| stValeur = Left(stValeur, Len(stValeur) - 2)