Remove Excess Spaces from a Text String? (a2k (9.0.6926) SP-3 Jet 4.0 SP-8

Topic

New Reply

I have looked at Trim and Replace without success.

What is the code to remove a variable number of extra spaces from a Form Text Box control in After_Update Event?

From:
Ken  Smith /   Mark Brown
To:
Ken Smith / Mark Brown

Thanks, John

Reply | Quote

Replies

Try this, substituting the correct name:

Private Sub TextBox1_AfterUpdate()
Dim strText As String
If Not IsNull(Me.TextBox1) Then
strText = Trim(Me.TextBox1)
Do While InStr(strText, Space(2)) > 0
strText = Replace(strText, Space(2), Space(1))
Loop
Me.TextBox1 = strText
End If
End Sub

Reply | Quote

Your solution seems to be more straight forward than Remove Extra Spaces Version: 2003 (11.0)

http://www.utteraccess.com/forums/showthre…sb=5&o=&fpart=1%5B/url%5D

Thanks, John

Reply | Quote