Discussion :

[Sebastien_INR59]

Bonjour,

Dans la zone de code d'un formulaire, j'ai une requête du type:

strSQL = "INSERT INTO BOB (BOB_COMM) VALUES ( ' " & vComm & " ')"
DoCmd.RunSQL strSQL

Cependant il arrive que la chaine vComm contient déjà un ' ... ce qui empêche l'insertion et cause une erreur dans l'éxécution de la procédure.

Comment est ce que je pourrais résoudre ce problème ?


Cordialement.
Séb

[LostIN]

fonction replace

[jujusoso]

remplace tous simplement tes ' par des doubles "

Code :

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

1
2
3
 
strSQL = "INSERT INTO BOB (BOB_COMM) VALUES ( """ & vComm & """)"
DoCmd.RunSQL strSQL

jujusoso

[Sebastien_INR59]

Cela fonctionne avec les doubles ", cependant d'autres chaines vComm contiennent des " et donc l'insertion plante désormais avec celles ci.

[LostIN]

je fais :

= "& pfRemplaceDansChaine(machaine,"'","''") & "



public function pfRemplaceDanschaine(byval psChaine as string, byval psP1 as string, byval psP2 as string) as string

' ici c'est une fonction de remplacement

end function