Query Criteria

[mtanney]

How can I set the query criteria to a value from an input box?

 

[scriverb]

I am assuming you truly mean InputBox command here rather than text box.

Create a global variable and a function in a database module:
Global vInputBoxData as Variant
Function InputBoxData()
InputBoxData = vInputBoxData
End Function

Then in your code use this:
vInputBoxData = InputBox("Please enter criteria&quot
DoCmd.OpenQuery "qryYourQueryName"

The criteria row for the column/field in your query should look like this as you are making a Function Call:
InputBoxData()

This should do it for you.

Bob Scriver
Want the best answers? See FAQ181-2886
Nobody believes the official spokesman... but everybody trusts an unidentified source.
Author, Bagdad Bob???