Help with search code

[Afrosheen via AccessMonster.com]

The code below works great. I just want to make it work better.
I want the ability to do the search with a Wild Card * So when I put in Dom
it will give me all the names with the letters Dom and beyond like Dominic
and so on. Is there a way of doing this?

10 If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
20 MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!
"
30 Me![txtSearch].SetFocus
40 Exit Sub
50 End If
'---------------------------------------------------------------
'Performs the search using value entered into txtSearch and evaluates
this against values in lName
60 'strwhere = txtSearch

strWhere = "[lname] = '" & Me!txtSearch & "'"
Filter = strWhere
FilterOn = True

Thanks for your help.

 

[Marshall Barton]

The code below works great. I just want to make it work better.
I want the ability to do the search with a Wild Card * So when I put in Dom
it will give me all the names with the letters Dom and beyond like Dominic
and so on. Is there a way of doing this?

10 If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
20 MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!
"
30 Me![txtSearch].SetFocus
40 Exit Sub
50 End If
'---------------------------------------------------------------
'Performs the search using value entered into txtSearch and evaluates
this against values in lName
60 'strwhere = txtSearch

strWhere = "[lname] = '" & Me!txtSearch & "'"
Filter = strWhere
FilterOn = True

If you always want to search fo a partial match:

strWhere = "[lname] Like '" & Me!txtSearch & "*' "

If you want user to enter Dom* when they want a partial
match or enter Dom when they want an exact match, then use:

strWhere = "[lname] Like '" & Me!txtSearch & "* "

 

[John Spencer]

Marshall meant to say

If you want user to enter Dom* when they want a partial
match or enter Dom when they want an exact match, then use:

strWhere = "[lname] Like '" & Me!txtSearch & "' "

Note the replacement of the * with a '

John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County

The code below works great. I just want to make it work better.
I want the ability to do the search with a Wild Card * So when I put in Dom
it will give me all the names with the letters Dom and beyond like Dominic
and so on. Is there a way of doing this?

10 If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
20 MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!
"
30 Me![txtSearch].SetFocus
40 Exit Sub
50 End If
'---------------------------------------------------------------
'Performs the search using value entered into txtSearch and evaluates
this against values in lName
60 'strwhere = txtSearch

strWhere = "[lname] = '" & Me!txtSearch & "'"
Filter = strWhere
FilterOn = True

If you always want to search fo a partial match:

strWhere = "[lname] Like '" & Me!txtSearch & "*' "

If you want user to enter Dom* when they want a partial
match or enter Dom when they want an exact match, then use:

strWhere = "[lname] Like '" & Me!txtSearch & "* "

 

[Afrosheen via AccessMonster.com]

Thanks fellas. It works great. I appreciate the help, advice, and little
tricks I've learned and probably forgot.

Thanks again.

Marshall meant to say

If you want user to enter Dom* when they want a partial
match or enter Dom when they want an exact match, then use:

strWhere = "[lname] Like '" & Me!txtSearch & "' "

Note the replacement of the * with a '

John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County
[quoted text clipped - 24 lines]

strWhere = "[lname] Like '" & Me!txtSearch & "* "

 

[Marshall Barton]

Marshall meant to say
If you want user to enter Dom* when they want a partial
match or enter Dom when they want an exact match, then use:

strWhere = "[lname] Like '" & Me!txtSearch & "' "

Note the replacement of the * with a '

I guess I need to use a larger font :-(

Thanks for catching that John.