Mettre une double quote quand il y a qu'une quote!!!

Contenu du snippet

il permet de doubler la quote, quand dans une chaine de caractere il y a une quote!

ce qui peut perturber le programme surtout en base de donnée !!

Source / Exemple :


Public Function replquot(ByVal test As String) As String

Static i As Integer
Static b As String

For i = 1 To Len(Trim(test))
    
    If Mid(test, i, 1) = "'" Then
        replquot = replquot & "'"
    End If
        
        replquot = replquot & Mid(test, i, 1)
        
Next

End Function

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.