strip space if after a comma

[auerdl]

Sorry I entered this post in the wrong area. Please ignore, I will re post in right place



The below code was posted by spideynok. my greatest thanks!!

One question...
The below takes the search word(s) delimited my a comma and searches a field.

On the below code, if the user enters a comma and space between search words, how can I strip the space, but strip the space only if it is after the comma?


Private Sub Command25_Click()
Dim strFilter As String, strFilters() As String
Dim intX As Integer

With Me
strFilters = Split(Nz(.Text23, ""), ",")
For intX = 0 To UBound(strFilters)
strFilter = strFilter & _
Replace(" OR ([EmployeeName] Like '*%F*')", _
"%F", strFilters(intX))
Next intX
.Filter = Replace(Mid(strFilter, 5), "'", Chr(34))
.FilterOn = (.Filter > "")
End With
End Sub

[Micron]

Trim function will remove trailing spaces. You could put it within the string building part, like Trim(strfilter). I presume you mean the very last space is to be removed and not somewhere in between.

[auerdl]

How o I make sure it is only after the comma.

example
blue bug, red
remove the space after the comma and not blue

I am not so good at code, can you give me the example

[Micron]

Try changing your line to this

Replace(" OR ([EmployeeName] Like '*%F*')", _
"%F", Trim(strFilters(intX)))

I forgot that Trim will remove leading AND trailing spaces.

[RuralGuy]

Sorry I entered this post in the wrong area. Please ignore, I will re post in right place

The below code was posted by spideynok. my greatest thanks!!

One question...
The below takes the search word(s) delimited my a comma and searches a field.

On the below code, if the user enters a comma and space between search words, how can I strip the space, but strip the space only if it is after the comma?


Private Sub Command25_Click()
Dim strFilter As String, strFilters() As String
Dim intX As Integer

With Me
strFilters = Split(Nz(.Text23, ""), ",")
For intX = 0 To UBound(strFilters)
strFilter = strFilter & _
Replace(" OR ([EmployeeName] Like '*%F*')", _
"%F", strFilters(intX))
Next intX
.Filter = Replace(Mid(strFilter, 5), "'", Chr(34))
.FilterOn = (.Filter > "")
End With
End Sub

For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184
Evidently this is crossposted: http://www.mrexcel.com/forum/microso...ml#post4579481