Using flexible query criteria

[keliie]

Hello

Just a quick question that I've spent a few hours trying to solve with
no luck (although one would think this should be fairly easy).

I have a form with a subform. The subform is based on a query. The
criteria for the query is based on the user's input in the main form.
One of the user inputs is a field called "Vendor_Nam e" (in the form of
a combo box). I would like the query to run for all "Vendor_Nam e" if
the user leaves the field blank. However, if the user selects a
"Vendor_Nam e", then I would like the query to run with the selected
criteria.

I've tried an "IIF" statement in the query criteria with no luck, also
tried (my best) to write VB code to do the same, again without any
luck.

I'm sure there is a simple solution, but I have yet to find it. Any
help at all would be appreciated.

Best,

Kelii

[Gabriele Bertolucci]

> I have a form with a subform. The subform is based on a query. The

criteria for the query is based on the user's input in the main form.
One of the user inputs is a field called "Vendor_Nam e" (in the form of
a combo box). I would like the query to run for all "Vendor_Nam e" if
the user leaves the field blank. However, if the user selects a
"Vendor_Nam e", then I would like the query to run with the selected
criteria.

I suggest you to change the SELECT used for RowSource of the combo in the
main form.

Said the SELECT statement is similar to

SELECT Filed1, Field2, ...., FieldN FROM MyTable

and said that Field1 is the primary key and is an autonumber field, and Field2
is the field shown in the combo box, you must modify it to a UNION select,
similar to

SELECT Field1, Field2, ...., FieldN FROM MyTable
UNION 0 AS Field1, '<all>' AS Field2, NULL AS Field3, ...., NULL AS FieldN
FROM MyTable

then, you should change the SELECT used for RecordSource of the subform.

Said this SELECT is similar to

SELECT Field1, Field2, ...., FieldX FROM MyTable

you must modify it in a way similar to

SELECT Field1, Field2, ...., FieldX FROM MyTable
WHERE (Field1 = [Forms]![nameofthemainfo rm]![nameofthecombob ox]) OR
([Forms]![nameofthemainfo rm]![nameofthecombob ox] = 0)

Bye.

--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

[Ed Robichaud]

Open your underlying query in design-grid view and something like below:

Like IIf([Forms]![frmMyForm]![pickCombBox] Is
Null,"*",[forms]![frmMyForm]![pickCombBox])

as the criteria in the column of your main form combobox.
-Ed

<ke****@yahoo.c om> wrote in message
news:11******** *************@j 52g2000cwj.goog legroups.com...

Hello

Just a quick question that I've spent a few hours trying to solve with
no luck (although one would think this should be fairly easy).

I have a form with a subform. The subform is based on a query. The
criteria for the query is based on the user's input in the main form.
One of the user inputs is a field called "Vendor_Nam e" (in the form of
a combo box). I would like the query to run for all "Vendor_Nam e" if
the user leaves the field blank. However, if the user selects a
"Vendor_Nam e", then I would like the query to run with the selected
criteria.

I've tried an "IIF" statement in the query criteria with no luck, also
tried (my best) to write VB code to do the same, again without any
luck.

I'm sure there is a simple solution, but I have yet to find it. Any
help at all would be appreciated.

Best,

Kelii

[keliie]

Ed - thanks for the response, it didn't seem to work.

This is the text that I put into the query criteria:
Like IIf([Forms]![frmInvoiceLooku p]![Vendor_Name] Is
Null,"*",[Forms]![frmInvoiceLooku p]![Vendor_Name])

Here is the full query:
SELECT tblInvoiceMaste r.Invoice_ID, tblInvoiceMaste r.Company_Locat ion,
tblInvoiceMaste r.Invoice_Date, tblInvoiceMaste r.Invoice_Numbe r,
tblInvoiceMaste r.Vendor_Name, tblInvoiceMaste r.Total_Invoice _Amount
FROM tblInvoiceMaste r GROUP BY tblInvoiceMaste r.Invoice_ID,
tblInvoiceMaste r.Company_Locat ion, tblInvoiceMaste r.Invoice_Date,
tblInvoiceMaste r.Invoice_Numbe r, tblInvoiceMaste r.Vendor_Name,
tblInvoiceMaste r.Total_Invoice _Amount HAVING
(((tblInvoiceMa ster.Company_Lo cation)=[Forms]![frmInvoiceLooku p]![Company_Locatio n])
AND
((tblInvoiceMas ter.Invoice_Dat e)>=[Forms]![frmInvoiceLooku p]![Invoice_Begin_D ate]
And
(tblInvoiceMast er.Invoice_Date )<=[Forms]![frmInvoiceLooku p]![Invoice_End_Dat e])
AND ((tblInvoiceMas ter.Vendor_Name ) Like
IIf([Forms]![frmInvoiceLooku p]![Vendor_Name] Is
Null,"*",[Forms]![frmInvoiceLooku p]![Vendor_Name])));

Any other thoughts?

Best,

Kelii

[inkman04]

Hello Kel,

With the risk of sounding redundant, the expression below
is basically what I use to deal with the problem your having
and works for me everytime.

Perhaps you can give it a go! I use the build button to get
the correct path I need to the control on the main form for
the field in the query.

Result:

Forms![MainFormName]![FieldNameOnForm] 0r
Forms![MainFormName]![FieldNameOnForm] Is Null

Just get the path to the control you need and then repeat
it again after an "or" with the "Is Null" at the end.

This way, it looks to see if there is data in the field first,
then if it is null, you get all records.

Regards

[Ed Robichaud]

It looks OK; try deleting all the other criteria from your query and test
if the response works then. This assume that ALL records have value in
[Vendor_Name]; if not you'll have to add "or is Null" to that particular
query criteria.
-Ed
<ke****@yahoo.c om> wrote in message
news:11******** **************@ e56g2000cwe.goo glegroups.com.. .

Ed - thanks for the response, it didn't seem to work.

This is the text that I put into the query criteria:
Like IIf([Forms]![frmInvoiceLooku p]![Vendor_Name] Is
Null,"*",[Forms]![frmInvoiceLooku p]![Vendor_Name])

Here is the full query:
SELECT tblInvoiceMaste r.Invoice_ID, tblInvoiceMaste r.Company_Locat ion,
tblInvoiceMaste r.Invoice_Date, tblInvoiceMaste r.Invoice_Numbe r,
tblInvoiceMaste r.Vendor_Name, tblInvoiceMaste r.Total_Invoice _Amount
FROM tblInvoiceMaste r GROUP BY tblInvoiceMaste r.Invoice_ID,
tblInvoiceMaste r.Company_Locat ion, tblInvoiceMaste r.Invoice_Date,
tblInvoiceMaste r.Invoice_Numbe r, tblInvoiceMaste r.Vendor_Name,
tblInvoiceMaste r.Total_Invoice _Amount HAVING
(((tblInvoiceMa ster.Company_Lo cation)=[Forms]![frmInvoiceLooku p]![Company_Locatio n])
AND
((tblInvoiceMas ter.Invoice_Dat e)>=[Forms]![frmInvoiceLooku p]![Invoice_Begin_D ate]
And
(tblInvoiceMast er.Invoice_Date )<=[Forms]![frmInvoiceLooku p]![Invoice_End_Dat e])
AND ((tblInvoiceMas ter.Vendor_Name ) Like
IIf([Forms]![frmInvoiceLooku p]![Vendor_Name] Is
Null,"*",[Forms]![frmInvoiceLooku p]![Vendor_Name])));

Any other thoughts?

Best,

Kelii

[keliie]

Inkman,

Thanks for the response, your suggestion works for 99% of the issue,
which I'm willing to live with. The only complication is that the "Is
Null" criteria seems to prevent the other query criteria from
functioning properly; e.g., the date criteria have no effect when I
leave the Vendor_Name criteria blank. I've repeated the date query
criteria in the second row of the query criteria along with the "Is
Null" for Vendor_Name, but still no luck.

I'll keep playing with it to see if it works, however, great
suggestions and thanks for the help.

Best,

Kelii

[keliie]

Inkman,

Scratch earlier comment, your suggestion works perfectly.

Thanks again,

Kelii