How do I let a user search all records for a particular word please?

[meeble]

Hello,

I want to have a form with a button on it. If the user presses the button, it opens up a pop up box and asks the user to enter a word. When they enter this word, it brings up a list of all the records with that word in it (in any field).

Is this possible?

Cheers

James

 

[roltrap]

hi James,

this is possible. something like this

dim rst as recordset, db as database
dim sWord as string

sWord = InputBox("search word&quot

sWord = "*" & SWord & "*"

set rst = db.openrecordset("SELECT * FROM WordTable WHERE WordField LIKE '" & sWord & "'&quot

it is also possible to achieve this via a query where you use the inputbox as the criteria.

regards roltrap

 

[meeble]

Hello, thanks for your help. I tried to insert that code but couldn't get it to work. Maybe I'm putting it in the worng place. Where do I put it?

Cheers

James

 

[roltrap]

ok, here some more information.

the code has to be put in the On_Click Event of the button.

If you want the filtered data displayed in a listbox like you said, the code will be like this:


dim sWord as string

sWord = InputBox("search word&quot

sWord = "*" & SWord & "*"
lstWord.RowSource = "SELECT

.[Word] FROM

where

.[Word] LIKE '" & sWord & "'"


hope this makes it clearer

Roltrap