Bonjour,
Je souhaite remplacer tous les caract=E8res guillemet " et=20
apostrophe ' dans uu champ =E0 l'aide d'une requ=EAte.=20
Quelqu'un pourrais-t-il me donner un exemple ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
deschamp
dans la case mise a jour de la requete sur le champ corrrespondant,il faut mettre le nom d'une fonction cette fonction a pour parametre le champ en question et renvoie une chaine de caractere ex : =xx(monchamp) la fonction etant
Public Function xx(monchamp As String) As String I = 1 xlib = monchamp Do While InStr(I, xlib, Chr(34)) <> 0 J = InStr(I, xlib, Chr(34)) xlib = Left(xlib, J - 1) & "." & Right(monchamp, Len (monchamp) - J) I = J Loop xx = xlib End Function
il faut bien entendu refaire ds le code la meme operation avec l'apostrophe avant de renvoyer la fonction
-----Message d'origine----- Bonjour, Je souhaite remplacer tous les caractères guillemet " et apostrophe ' dans uu champ à l'aide d'une requête. Quelqu'un pourrais-t-il me donner un exemple ?
Merci beaucoup.
.
dans la case mise a jour de la requete sur le champ
corrrespondant,il faut mettre le nom d'une fonction
cette fonction a pour parametre le champ en question et
renvoie une chaine de caractere
ex : =xx(monchamp)
la fonction etant
Public Function xx(monchamp As String) As String
I = 1
xlib = monchamp
Do While InStr(I, xlib, Chr(34)) <> 0
J = InStr(I, xlib, Chr(34))
xlib = Left(xlib, J - 1) & "." & Right(monchamp, Len
(monchamp) - J)
I = J
Loop
xx = xlib
End Function
il faut bien entendu refaire ds le code la meme
operation avec l'apostrophe avant de renvoyer la fonction
-----Message d'origine-----
Bonjour,
Je souhaite remplacer tous les caractères guillemet " et
apostrophe ' dans uu champ à l'aide d'une requête.
Quelqu'un pourrais-t-il me donner un exemple ?
dans la case mise a jour de la requete sur le champ corrrespondant,il faut mettre le nom d'une fonction cette fonction a pour parametre le champ en question et renvoie une chaine de caractere ex : =xx(monchamp) la fonction etant
Public Function xx(monchamp As String) As String I = 1 xlib = monchamp Do While InStr(I, xlib, Chr(34)) <> 0 J = InStr(I, xlib, Chr(34)) xlib = Left(xlib, J - 1) & "." & Right(monchamp, Len (monchamp) - J) I = J Loop xx = xlib End Function
il faut bien entendu refaire ds le code la meme operation avec l'apostrophe avant de renvoyer la fonction
-----Message d'origine----- Bonjour, Je souhaite remplacer tous les caractères guillemet " et apostrophe ' dans uu champ à l'aide d'une requête. Quelqu'un pourrais-t-il me donner un exemple ?
