Creating a search

B

Bob Vance

I have this query:
---------------------
SELECT DISTINCT tblAdditionCharge.AdditionCharge,
tblAdditionCharge.AdditionChargeAmount
FROM tblAdditionCharge
WHERE (((tblAdditionCharge.AdditionChargeAmount) Is Not Null))
ORDER BY tblAdditionCharge.AdditionCharge;
 
B

banem2

I have this query:
---------------------
SELECT DISTINCT tblAdditionCharge.AdditionCharge,
tblAdditionCharge.AdditionChargeAmount
FROM tblAdditionCharge
WHERE (((tblAdditionCharge.AdditionChargeAmount) Is Not Null))
ORDER BY tblAdditionCharge.AdditionCharge;
Click to expand...

Using form dropdown combo box, modify query to:

WHERE ([tblAdditionCharge].[AdditionChargeAmount]) Is Not Null And
([tblAdditionCharge].[AdditionChargeAmount]) Like "*" & [forms]!
[myTextBox] & "*"

For the report:

WHERE ([tblAdditionCharge].[AdditionChargeAmount]) Is Not Null And
([tblAdditionCharge].[AdditionChargeAmount]) Like "*" & GetFilter() &
"*"

Function GetFilter(strFilter)
GetFilter = InputBox("Type filter", "Filter", strFilter)
End Function

You can use strFilter as default value.

Regards,
Branislav Mihaljev
Microsoft Access MVP
 
Top