Multiple criteria in a query

[Ultimateneo]

Hello i am doign a products to parts database.

I have a product category combobox on a form, and I have 2 queries that I want to run that as long as the option in the 1st combobox is not "General" the other 2 comboboxes would be blank so as not needed to be filled out.

If it is anything else in the 1st combobox then the 2 other dependant comboboxes will work.

I have tried "General" in the criteria for the category with IS NUll in the other 2 criteria but I either get no results or I get all the results



The first combobox selects the product category, the 2nd combobox selects the product, which then if nothing selected for 3rd combobox will sow all parts for that product. If the 3rd combobox selects the part category this will say limit the list of parts to external or internal.

A forth combobox will split the inside of the unit up to chassis, Main pcb, PSU for example

Thank you for any help provided have attached a screen shot of what I have

[June7]

Instead of dynamic parameterized query, consider VBA to build filter criteria and apply to form or report. Review http://allenbrowne.com/ser-62.html

[Ultimateneo]

I am trying the code, but not having any luck. I want to filter the combo boxes on the form, the combo box this filters is cboproductname but if it equals "General" then cboproductname is not required

Dim strWhere As String
Dim lngLen As Long
If Not IsNull("Me.cboproductcat") Then
    strWhere = strWhere & "([Productcat] = " & Me.cboproductcat & ") AND "
End If
  lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then     'Nah: there was nothing in the string.
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else                    'Yep: there is something there, so remove the " AND " at the end.
        strWhere = Left$(strWhere, lngLen)
        'For debugging, remove the leading quote on the next line. Prints to Immediate Window (Ctrl+G).
        'Debug.Print strWhere
        'Finally, apply the string as the form's Filter.
        Me.Filter = strWhere
        Me.FilterOn = True
    End If

Thank you for any help provided

[Ultimateneo]

The ode is in the after update of cboproductcat

[isladogs]

As you are still struggling, I suggest you look at the 2 example apps in this article: Multiple Group & Filter

[Micron]

I am trying the code, but not having any luck

That's as bad as "doesn't work".
I can't tell if your post means the code runs but doesn't produce the required result, or it doesn't run at all. AFAIK, this is wrong (and should cause it to not run)
IsNull("Me.cboproductcat")

Remove the quotes.

EDIT - just realized why it might run for you, but would not for me. You don't have Option Explicit at the top of your module, right up there with Option Compare. Is that correct?

[June7]

Yes, look at Allen's example again. I doubt you will see control reference within quote marks.