Remove Spaces?

[vanillapod]

Now i should remember this but its been a little while.... i have a field called [Name] on a report. Anyway i want to remove the spaces inbetween any of the characters in this field.... e.g. the name field may contain
'fred bloggs' but i want
'fedbloggs' all as one word....

Any help? Cheers

 

[danvlas]

I made this some 5 years ago and never bothered to modify it to look by the book...However, it does its job so feel free to use it. It removes all spaces within a string.

Function killspace(x As String) As String
Dim i As Long
Dim lung As Long
Dim litera As String
Dim sir As String
Dim final As String
If Len(x) = 0 Then
Exit Function
Else
sir = x
lung = Len(sir)
For i = 1 To lung
If Left$(sir, 1) = " " Then
litera = ""
Else
litera = Left$(sir, 1)
End If
final = final & litera
sir = Right$(x, Len(x) - i)
Next i
killspace = final
End If
End Function

Daniel Vlas
Systems Consultant
danvlas@yahoo.com