Search in form for name

[jl2886]

I have the names in my database as Last, First. I want to create a search that doesn't require you to put in the entire name with a comma. I think I want to use a like statement, but I can't get it to work.

[Rabbit]

What have you tried?

[jl2886]

What have you tried?

If Me.Insured_Name_2 > "" Then _
strFilter = strFilter & _
" AND ([Insured Name] Like '" & _
Me.Insured_Name_2 & "')"

[Rabbit]

Like uses exact matching unless you use a wildcard such as:

Like "Bill*"
Like "B*ill"
Like "*Bill"
Like "*Bill*"

Each one returns different results and there are more wildcard characters than just the *.

[jl2886]

Like uses exact matching unless you use a wildcard such as:

Like "Bill*"
Like "B*ill"
Like "*Bill"
Like "*Bill*"

Each one returns different results and there are more wildcard characters than just the *.

Is there a way to just put in a string of letters Like "LEA" and it will find all names where LEA are in that order.

[Rabbit]

Is there a way to just put in a string of letters Like "LEA" and it will find all names where LEA are in that order.

What do you mean by find all names where LEA are in that order. What order?

[jl2886]

I want to be able to type in a string of the name, I don't always know the last name, I don't always know the first name, but I want to be able to type somethign in....part of the name, part of the first name, part of the last name, then click enter and it will bring up all the cases based on the search

What do you mean by find all names where LEA are in that order. What order?

[Rabbit]

That's what the wild cards are for.

[jl2886]

Lets try once more,
I would like to create a search in form, where I can type in all, or part of the name because I may not always spell it correctly, or know the full name. This is what I have so far.... I know it is an exact match, but how do I code to do what I want:
[code]Private Sub CheckFilter()
Dim strFilter As String, strOldFilter As String
strOldFilter = Me.Filter

If Me.Find_Insured_Name > "" Then _
strFilter = strFilter & _
" AND ([Insured Name]='" & _
Me.Find_Insured_Name & "')"

If strFilter > "" Then strFilter = Mid(strFilter, 6)
If strFilter <> strOldFilter Then
Me.Filter = strFilter
Me.FilterOn = (strFilter > "")
End If
End Sub
[\Code]

[Tig201]

I'm not sure were your string is coming from but I was thinking you could do somthing Like

strFilter = "like *" & strFilter & "*"

this would search for anything with "strFilter" in it.

[MMcCarthy]

As tig201 and Rabbit said you need the LIKE statement and wildcards.

If Me.Find_Insured_Name > "" Then _
   strFilter = strFilter & _
   " AND ([Insured Name] LIKE '*" & _
   Me.Find_Insured_Name & "*')"
 

[jl2886]

Thanks mccarthy!!!!

As tig201 and Rabbit said you need the LIKE statement and wildcards.

If Me.Find_Insured_Name > "" Then _
   strFilter = strFilter & _
   " AND ([Insured Name] LIKE '*" & _
   Me.Find_Insured_Name & "*')"
 

[MMcCarthy]

Thanks mccarthy!!!!

You're welcome.