[Access - VBA] - Question à la con avec la '

Marsh Posté le 31-08-2003 à 14:02:56

Salut

En fait, je voudrais remplacer les ' présentes dans mes champs.
Parce que lorsque je cliques sur le bouton ajouter et où j'ai fait en VBA un INSERT INTO ... VALUES(' " & ZT_Toto & "')
DoCmd.RunSQL

Parce que si ZT_Toto contient une ', celà ferme la valeur et plante.

J'ai pensé le remplacer par un \' mais ca marche pas non plus.
J'ai aussi pensé à remplacer les ' par la valeur retournée par chr(49) mais pareil (logique) (je crois que c'est 49 pour la ').

J'ai trouvé une solution qui marche mais un peu chiante : remplacer les ' par le texte chr(49) mais bon .... ca fait des champs enregistrés du style :
"avenue dchr(49)Ouzbekistan" au lieu de "avenue d'Ouzbekistan".

Y'a pas une autre méthode pour remplacer les ' ?

Merci

Marsh Posté le 31-08-2003 à 14:02:56

Marsh Posté le 31-08-2003 à 17:57:42

Fonction à utiliser :

Code :

function quote(str as string) as string)
if isNull(str) then
quote = "''"
else
quote = "'" & replace(str, "'", "''" ) & "'"
end if
end function

Appel :

Code :

sql = "select champ from table where filtre = " & quote(chaine)

Marsh Posté le 31-08-2003 à 18:12:01

ok, cool !

Suffit de remplacer les ' par des ''

Thx

Marsh Posté le 31-08-2003 à 18:59:39

Nan, ça suffit pas. Utilise la fonction telle que je l'ai marquée.

cf. http://forum.hardware.fr/forum2.ph [...] subcat=388

Autant faire d'une pierre deux coups

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *