Solved Filtering a combo box (1 Viewer)

[arnelgp]

I understand what you mean, and I am not using black/dark theme.
on my Edge browser, everything is "normal", all are White background and black foreground for text.

 

[Micron]

I don't think you do. I didn't say you were using dark theme (or that comment could mean that you don't care to view it to see the problem). Telling me what you see is of no help. Here is the formatting of the text in question in your post:

<span style="color: rgb(20, 20, 20)">
  Start Date: CDate(Format([IW73 TBL with SN]![Start Date], "0000/00/00")
</span>

If you're not purposefully formatting text as black, then that is weird. BTW, the rest of the html on the page uses the default style for fonts.

 

[arnelgp]

I know the fault.
I copy/paste the code from another post (formatted I guess) and edited it only.

 

[Jediknight]

you add it to the RowSource of the combobox:

select CleanString([theCompanyFieldHere]) As Company From yourTable Group By
CleanString([theCompanyFieldHere]);

Sorry mate, but I don't understand your approach.

Do yo want me to discard the VBA code proposed earlier :

Function ClearString(strIn As String) As String
'Remove rightmost numbers
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "(?:[^A-Za-z]+(\s*))*"
CleanString = .Replace(strIn, vbNullString)
End With
End Function

.... and just input the RowSource code only ?

Best regards.

 

[arnelgp]

you put CleanString function to a Standard Module.
and call it within your query like the one you have.

 

[Jediknight]

I'd just want to do a follow up. This has been resolve. Thank you very much for all the help received!!
And very special thank to arnelgp for taking this one on .

 

[Gasman]

I'd just want to do a follow up. This has been resolve. Thank you very much for all the help received!!
And very special thank to arnelgp for taking this one on .

Would you mind marking it solved then?
That would help others when they are looking?

TIA

 

[Jediknight]

Ack. Will do