Delete spaces of fields in access table

[Francisco]

Hello:

i want to know how to delete inner spaces between words of a field in a
access table?
For example, i need to convert a text field like

"one two etc" in
"one two etc"

The online documentation talk about a "ESPACIOS()" function, but it
doesnt work neither in a SELECT statement neither VB function.

Thanks for help.

Francisco.

PD: please reply to my personal email.... thanks.

[Salad]

Francisco wrote:

Hello:

i want to know how to delete inner spaces between words of a field in a
access table?
For example, i need to convert a text field like

"one two etc" in
"one two etc"

The online documentation talk about a "ESPACIOS()" function, but it
doesnt work neither in a SELECT statement neither VB function.

Thanks for help.

Francisco.

PD: please reply to my personal email.... thanks.

Private Function RemExtraSpace(ByVal strValue As String) As STring
Dim intPos As Integer
Do While (Instr(strValue," ") > 0)
intPos = Instr(strValue," ")
RemExtraSpace = RemExtraSpace & Left(strValue, intPos-1) & " "
strValue = Trim(Mid(strValue,intPos))
Loop
RemExtrapace = RemExtraSpace & strValue
End Function

[Salad]

Salad wrote:

Private Function RemExtraSpace(ByVal strValue As String) As STring
Dim intPos As Integer
Do While (Instr(strValue," ") > 0)
intPos = Instr(strValue," ")
RemExtraSpace = RemExtraSpace & Left(strValue, intPos-1) & " "
strValue = Trim(Mid(strValue,intPos))
Loop
RemExtrapace = RemExtraSpace & strValue
End Function

Oh yeah. To call this. Ex:
Dim s As String
s = "Good Morning Franscisco"
msgbox RemExtraSpace(s)