Using Like in a filter to search for any character

[jhs326]

I have a form for searching with unbound text fields. There is a subform that gets its data from a query. What I have now works for searching for the first letter in each field. I have made queries in the past using Like "*"+[control]+"*" but cannot figure out how to translate this into VBA with the code I am using now.



If Me.txtcustname > "" Then
varWhere = varWhere & "[name] LIKE """ & Me.txtcustname & "*"" AND "
End If

I need to do something with the red portion but cannot figure out what. Any help would be greatly appreciated.

Thanks

[kenwarthen]

I'm not real clear about what you're attempting to do, and what issues you're having but if you want to filter on any character you can use Like "[A-Z]". For example, a line from a routine in a module from one of my databases use the following lines to test for, among other things, the last character in a variable being an alpha character. Hope this helps. - Ken

If (Left(strLgcyStorageBin, 1) = "W" Or Left(strLgcyStorageBin, 1) = "N") And (right(strLgcyStorageBin, 1) = "D") Then
fGetKernelStorageType = "YL1"
ElseIf (Left(strLgcyStorageBin, 1) = "3" And (right(strLgcyStorageBin, 1) Like "[A-Z]")) Then
fGetKernelStorageType = "YL1"
End If

[jhs326]

Thanks Ken, I just started pushing buttons over and over again until I finally got it to work. Ended up with this;

varWhere = varWhere & "[first] Like """ & "*" + Me.txtcustname + "*" & "*"" AND "

I was using an unbound form to search a query. The code I had was only searching the first character of the field. I needed to be able to enter any character in the unbound form and it find matching records in the query.

Thanks for the reply I am sure I will need more help as I move along.