Un peu compliqué comme solution quand on a commencer a programmer avec des requetes SQL et que l'on a pas envie de tout refaire!!!
Il suffit alors de doubler les cotes avec une fonction du style :
Function Double_les_Apostrophe(chaine As String) As String
'============================================================================
' Auteur : Philippe Conte
' Fonction : fonction permettant de doubler les apostrophes dans une chaine de type string
' Parametres : chaine de type string
' Valeur de retour : chaine passée en entrée avec les doubles apostrophes
' Date : 12/01/2001
' Commentaires :
'============================================================================
If InStr(chaine, "'") <> 0 Then
Double_les_Apostrophe = Replace(chaine, "'", "''")
End If
Il suffit alors de doubler les cotes avec une fonction du style :
Function Double_les_Apostrophe(chaine As String) As String
'============================================================================
' Auteur : Philippe Conte
' Fonction : fonction permettant de doubler les apostrophes dans une chaine de type string
' Parametres : chaine de type string
' Valeur de retour : chaine passée en entrée avec les doubles apostrophes
' Date : 12/01/2001
' Commentaires :
'============================================================================
If InStr(chaine, "'") <> 0 Then
Double_les_Apostrophe = Replace(chaine, "'", "''")
End If
End Function