Search routine for a data access page.

This is how I got it to work. There are quite a few questions about this floating around on here so I will try to post the link on there discussions.

FOR A DATA ACCESS PAGE! Straight from microsoft.
This will search a single Integer Field for an Integer given by the user and display the corresponding record set. No wildcards allowed in this example.

(A string search will also work with a bit of tweaking)

In design view
1. turn off the controls wizard
2. create a command button and name it cmdSearch
3. go to Tools --> Macro --> Microsoft Script Editor
4. from the Objects and Events box select cmdSearch
5. from the Events box(to the right) select OnClick
6. this will set your cursor in the correct place to insert the following code.



Hope this helps.

James

Alright so I got it to work searching for Integers only. I thought I would try out searching for strings so I take the:
and change it to:
and it gets an error about using the wrong data type. It will find an integer (a number) if I put one into the table. I tried making a customer named 12345 and used the CStr syntax above and it works fine. It will not, however, find a string.

In the example their is an example to search a string:
this in itself will not work. the syntax is wrong.

This here is teh goodness.
Now I'm trying to get wildcards to work. From what I've read you can change the = to LIKE.
This will not return a record though. I think this will become a "How To" search for record sets for noobs before I'm done with it.

This here is teh goodness.

Expand|Select|Wrap|Line Numbers

1. rs.find "[Customer NAME] = '" & CStr(InputBox("Please enter customer to find", "Find")) & "'"

Now I'm trying to get wildcards to work. From what I've read you can change the = to LIKE.

Expand|Select|Wrap|Line Numbers

1. rs.find "[job name] LIKE '" & CStr(InputBox("Please enter a job name to find", "Find")) & "'"

This will not return a record though. I think this will become a "How To" search for record sets for noobs before I'm done with it.

I have somewhat of a solution for this. Change your line to the below:

rs.find "[job name] LIKE %" & CStr(InputBox("Please enter a job name to find", "Find")) & "%"

However, It only brings you to the closest record that you typed and doesnt filter the records down which would be ideal. Any thoughts of how to set it to not only find but filter?

This was very helpful for me .. I found your use of the "LIKE" statement will work for me so long as the wildcard "%" is used following the search term. . wonder if there's a way to programatically add this to the end of the search