Supprimer tous les espaces dans une chaîne de caractères

Comment supprimer tous les espaces dans une chaîne de caractères ?

Les fonctions SupprGauche, SupprDroite et SupprEspace (LTrim, RTrim,
Trim) permettent de supprimer des espaces respectivement à gauche, à
droite, et des 2 côtés d'une chaîne de caractères.

Cependant, il n'existe pas de fonction Access Basic pour supprimer les
espaces n'importe où dans une chaîne de caractères. Voici donc la
fonction qu'il faut créer dans un module pour obtenir cette
fonctionnalité :

Function SupprimeEsp (X As String)
'----Supprime tous les espaces d'une chaîne
While (InStr(1, X, " ") <> 0)
X = Left$(X, InStr(1, X, " ") - 1) + Right$(X, Len(X) - InStr(1, X,
" "))
Wend
SupprimeEsp = X
MsgBox X
End Function



EXEMPLE :

Vous pouvez utiliser cette fonction en tapant par exemple :
? SupprimeEsp("CR O2 F")
dans la fenêtre d'éxécution d'un module. Vous obtenez alors :
CRO2F

Vous pouvez aussi, à l'aide d'une requête de mise à jour, retirer tous
les espaces présents dans un champ texte de votre table. Voici un exemple
de ce type de requête :

Champ : [ChampTexte]
Mise à jour : SupprimeEsp([ChampTexte])