Bonjour a tous
J'avais une formule qui me permettre de supprimer dans mon table la ponctuation
Malheureusement pas utilise depuis 3 ans et j'ai oublié la procédure
Merci d’avance pour votre aide
Cordialement
Bonjour a tous
J'avais une formule qui me permettre de supprimer dans mon table la ponctuation
Malheureusement pas utilise depuis 3 ans et j'ai oublié la procédure
Merci d’avance pour votre aide
Cordialement
Bonjour.
Probablement la fonction Replace().Quelque chose comme :
Remplace les virgules par rien.
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part Replace([TaSoure].[TonChamp]; ","; "")
A+
Vous voulez une réponse rapide et efficace à vos questions téchniques ?
Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.
Bonjour
Merci pour ton retour mais je souhaitais supprimer toutes la ponctuations avec la fonction remplacer d’après mes connaissances je peut pas remplacer plein de caracteres par rien avec la formule remplacer ou replace
Merci d'avance pour ton retour et bonne journée
Salut
Mettre bout à bout les caractères spéciaux à traiter comme ci-dessous
Remplacer(Remplacer(Remplacer(NomDuChamp; "#"; ""); "-"; ""); "/"; "")Sinon passer par une fonction
Et dans une req appeler la fct RemplacerSymboles([NomChampDeLaTable])
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Public Function RemplacerSymboles(ByRef MonChamp As String) As String 'Public Function RemplacerSymboles(ByRef MonChamp As String, ByVal SymboleRemplacement As String) As String Dim varData As Variant varData = Array("&", "~", """", "#", "{", "}", "[", "]", "@", ",", ";", ":", "!", "?", "\", "/", "*", "<", ">", "|", "§") Dim i As Integer For i = LBound(varData) To UBound(varData) MonChamp = Replace(MonChamp, varData(i), vbNullString) 'MonChamp = Replace(MonChamp, varData(i), SymboleRemplacement) Next i RemplacerSymboles = MonChamp End Function
"Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
UR - ESIROI - GPME/CG/DCG8
QTH :21°19'18"S - 055°25'32"E
Inutile de me contacter par MP
Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur
merci pour ton retour
je vais essayer ce matin et je te reviens
Merci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager