A few months ago I posted this question about compound filtering a form with text boxes and a combo box, with the filtered data updating after every keystroke into a text box:

https://www.experts-exchange.com/questions/27590713/Compound-Filter-a-Subform-2-Text-Box-1-Combo.html

I received the perfect answer to my question by pteranodon72

I am now coming back to make an update to this form, I want to add a combo box to the existing filter, but I cannot get the code to work.

The code below works only on the original two text boxes and combo box. I have introduced a new combo box, and edited the code to what I *think* should work, but when I choose a value in the newly added second combo box, I get an 'Enter Paramater Value' box appear.

How can I introduce the second combo box to the filter so it just further compounds my filter?

This is the code I need to edit:

Sub CompoundFilter()

' ================================================
' CODE USED FOR FILTERING ON SPECIFICATIONS SCREEN
' ================================================

    Dim strFilter As String 'used to build the criteria of the filter
    Dim strCompare As String
    Dim cFocus As Control

' =========================
' CODE USED FOR COMBO BOXES
' =========================

    'Add Company to Filter, if specified
        If IsNull(Me.cboCompanyPicker) = False Then
            strFilter = strFilter & " AND CompanyNo=" & Me.cboCompanyPicker.Value
        End If

    'Add Board Type to Filter, if specified.
        If IsNull(Me.cboBoardType) = False Then
            strFilter = strFilter & " AND BoardType=" & Me.cboBoardType.Value
        End If

' ========================
' CODE USED FOR TEXT BOXES
' ========================

    'You must use .text if the control is active, otherwise use .value
        
        If Screen.ActiveControl.Name = "txtFilterSpec" Then
            strCompare = Me.txtFilterSpec.Text
        Else
            strCompare = Nz(Me.txtFilterSpec.Value, "")
        End If
    
    ' Filter By Spec Number, if specified
        If Len(strCompare) > 0 Then
            strFilter = strFilter & " AND [SpecificationNo] LIKE '*" & strCompare & "*'"
        End If

    'You must use .text if the control is active, otherwise use .value
    
        If Screen.ActiveControl.Name = "txtFilterPart" Then
            strCompare = Me.txtFilterPart.Text
        Else
            strCompare = Nz(Me.txtFilterPart.Value, "")
        End If

    ' Filter By Part Number, if specified
        If Len(strCompare) > 0 Then
            strFilter = strFilter & " AND [PartNo] LIKE '*" & strCompare & "*'"
        End If
        

        


'Filter or Don't Filter decided here
If Len(strFilter) = 0 Then
    'strFilter is still empty -- turn filter OFF
    Me.frmSpecificationSubform.Form.FilterOn = False
Else
    ' one or more conditions is true, so we must trim the extra " AND " off the front
    Me.frmSpecificationSubform.Form.Filter = Mid(strFilter, 6)
    Me.frmSpecificationSubform.Form.FilterOn = True
End If

End Sub

Select allOpen in new window

And the image attached shows my new combo box (yellow).