themaste
Messages postés130Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention 8 juillet 2008
-
1 oct. 2003 à 17:15
themaste
Messages postés130Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention 8 juillet 2008
-
2 oct. 2003 à 11:04
Bonjour a tous!
Comment faire pour mettre des apostrophes dans des requete SQL snas que ca plante?
J'ai trouve un post a ce sujet, mais la solution proposé ne peux pas fonctionner.
En effet, il est dit d'utiliser la fonction "replace", mais elle n'existe pas sous access....
cs_BLU
Messages postés16Date d'inscriptionjeudi 11 juillet 2002StatutMembreDernière intervention31 juillet 2008 1 oct. 2003 à 17:31
Rajoute la fonction de ce type là
Public Function Convert_String(Chaine As Variant) As Variant
'Fonction de remplacement de ' en '' dans une chaine de type String ...
Chaine = IIf(IsNull(Chaine), "", Chaine)
Convert_String= Replace(Chaine, "'", "''")
End Function
où tu passe la valeur de ton combo au sein même de ta définition de ta reqête
themaste
Messages postés130Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention 8 juillet 20082 1 oct. 2003 à 17:54
C bon j'ai trouve, en tout k grace a vous!!
j'ai modifié la fonction....
******************************
Public Function Convert_String(Chaine As Variant) As String
'Fonction de remplacement de ' en '' dans une chaine de type String ...
Dim ChaineTmp As String
Dim nIndex As Integer
Dim c As String
For nIndex = 0 To Len(Chaine)
'Récupère chaque caractère pour analyse
c = Mid(Chaine, nIndex, 1)
If c = "'" Then
'Ajoute deux fois l'apostrophe
ChaineTmp = ChaineTmp & c & c
Else
'Ne change rien
ChaineTmp = ChaineTmp & c
End If
Next