OVH Cloud OVH Cloud

[Apostrophe]

2 réponses
Avatar
Chloe5972
Bonjour a tous

Voici mon p'tit probleme
Dans ma table il y a des champs avec des apostrophes genre
Guide de l'Orient
J'utilise une liste a choix qui contient ce genre de champs
avec cette formule ou source = Guide de l'Orient par ex
For Each varI In Me!List.ItemsSelected
If strFiltre <> "" Then strFiltre = strFiltre & "
OR "
strFiltre = strFiltre & "[SOURCE]='" & _
Me!List.ItemData(varI) & "'"
Next varI

Et paf ca bug because apostrophe
Comment contourner ce probleme???

Merci d'avance
Chloe

2 réponses

Avatar
Gafish
Bonjour,

La cause de ce problème est qu'en sql, l'apostrophe à une signification, à
savoir le début d'un texte.
Pour contourner ce problème, il faut que tu doubles l'apostrophe.
Pour cela, utilise la fonction replace pour contourner ce problème; comme
suit :

replace(Me!List.ItemData(varI), " ' ", " ' ' ")

tu vas ainsi remplacer dans Me!List.ItemData(varI) toutes les apostrophes
simples par des apostrophes doubles. Ci dessus entre les guillemets simples
et doubles j'ai mis des espaces pour des raisons de lisibilité, mais enleve
les dans ton code


Arnaud

"Chloe5972" a écrit dans le message news:
642401c4cca2$523d8bf0$
Bonjour a tous

Voici mon p'tit probleme
Dans ma table il y a des champs avec des apostrophes genre
Guide de l'Orient
J'utilise une liste a choix qui contient ce genre de champs
avec cette formule ou source = Guide de l'Orient par ex
For Each varI In Me!List.ItemsSelected
If strFiltre <> "" Then strFiltre = strFiltre & "
OR "
strFiltre = strFiltre & "[SOURCE]='" & _
Me!List.ItemData(varI) & "'"
Next varI

Et paf ca bug because apostrophe
Comment contourner ce probleme???

Merci d'avance
Chloe


Avatar
Chloe5972
Giga merciiiiiii
Ca fonctionne !!!

-----Message d'origine-----
Bonjour,

La cause de ce problème est qu'en sql, l'apostrophe à une
signification, à

savoir le début d'un texte.
Pour contourner ce problème, il faut que tu doubles
l'apostrophe.

Pour cela, utilise la fonction replace pour contourner ce
problème; comme

suit :

replace(Me!List.ItemData(varI), " ' ", " ' ' ")

tu vas ainsi remplacer dans Me!List.ItemData(varI)
toutes les apostrophes

simples par des apostrophes doubles. Ci dessus entre les
guillemets simples

et doubles j'ai mis des espaces pour des raisons de
lisibilité, mais enleve

les dans ton code


Arnaud

"Chloe5972" a écrit
dans le message news:

642401c4cca2$523d8bf0$
Bonjour a tous

Voici mon p'tit probleme
Dans ma table il y a des champs avec des apostrophes
genre


Guide de l'Orient
J'utilise une liste a choix qui contient ce genre de
champs


avec cette formule ou source = Guide de l'Orient par ex
For Each varI In Me!List.ItemsSelected
If strFiltre <> "" Then strFiltre = strFiltre
& "


OR "
strFiltre = strFiltre & "[SOURCE]='" & _
Me!List.ItemData(varI) & "'"
Next varI

Et paf ca bug because apostrophe
Comment contourner ce probleme???

Merci d'avance
Chloe



.