Filter search based on subform

[sandy21380]

I have the following code in my program allowing users to search for entries matching up to five different criteria at once. I changed the form to now contain a subform and would like to allow the users to search by fields contained in the subform. The field on the subform that I would like to include in the search is [Presentation], but just including [Presentation] in the code did not do the trick -the search was not recognizing the subform field [Presentation]. The code is pasted below:

Private Sub cmdInitiate_Search_Click()
On Error GoTo Err_cmdInitiate_Search_Click
 
    Dim strCriteria(5) As String
    Dim strSearchField(5) As String
    Dim LinkCriteria(5) As String
    Dim LinkCriteriaFinal As String
    Dim strSQL As String
    Dim i As Integer
 
    If IsNull(Me!criteria1) Then
        MsgBox "Please enter valid search criteria.", vbCritical, "Error"
        Me![criteria1].SetFocus
        Exit Sub
    Else
        strCriteria(0) = Me![criteria1]
    End If
    If Not IsNull(Me![Criteria2]) Then
        strCriteria(1) = Me![Criteria2]
    Else
        strCriteria(1) = Me![criteria1]
    End If
    If Not IsNull(Me![Criteria3]) Then
        strCriteria(2) = Me![Criteria3]
    Else
        strCriteria(2) = Me![criteria1]
    End If
    If Not IsNull(Me![Criteria4]) Then
        strCriteria(3) = Me![Criteria4]
    Else
        strCriteria(3) = Me![criteria1]
    End If
    If Not IsNull(Me![Criteria5]) Then
        strCriteria(4) = Me![Criteria5]
    Else
        strCriteria(4) = Me![criteria1]
    End If
 
    If IsNull(Me!SearchField1) Then
        MsgBox "Please enter valid search field.", vbCritical, "Error"
        Me![SearchField1].SetFocus
        Exit Sub
    Else
        strSearchField(0) = Me![SearchField1]
    End If
    If Not IsNull(Me![SearchField2]) Then
        strSearchField(1) = Me![SearchField2]
    Else
        strSearchField(1) = Me![SearchField1]
    End If
    If Not IsNull(Me![SearchField3]) Then
        strSearchField(2) = Me![SearchField3]
    Else
        strSearchField(2) = Me![SearchField1]
    End If
    If Not IsNull(Me![Searchfield4]) Then
        strSearchField(3) = Me![Searchfield4]
    Else
        strSearchField(3) = Me![SearchField1]
    End If
    If Not IsNull(Me![SearchField5]) Then
        strSearchField(4) = Me![SearchField5]
    Else
        strSearchField(4) = Me![SearchField1]
    End If
 
    Me.Visible = False
 
For i = 0 To 4
    Select Case strSearchField(i)
    Case 1
        LinkCriteria(i) = "[Region]"
    Case 2
        LinkCriteria(i) = "[Firm_Name]"
    Case 3
        LinkCriteria(i) = "[Address_1]"
    Case 4
        LinkCriteria(i) = "[Address_2]"
    Case 5
        LinkCriteria(i) = "[Contact]"
    Case 6
        LinkCriteria(i) = "[City]"
    Case 7
        LinkCriteria(i) = "[State]"
    Case 8
        LinkCriteria(i) = "[Zip]"
    Case 9
        LinkCriteria(i) = "[County]"
    Case 10
        LinkCriteria(i) = "[Country]"
    Case 11
        LinkCriteria(i) = "[Orig_Info]"
    Case 12
        LinkCriteria(i) = "[Last_Update]"
    Case 13
        LinkCriteria(i) = "[Firm_Size]"
    Case 14
        LinkCriteria(i) = "[Specialty_Work]"
    Case 15
        LinkCriteria(i) = "[Last_Office_Visit]"
    Case 16
        LinkCriteria(i) = "[Residential]"
    Case 17
        LinkCriteria(i) = "[Type of Operation]"
    Case 18
        LinkCriteria(i) = "[Presentation]"
    Case 19
        LinkCriteria(i) = "[COR200]"
    Case 20
        LinkCriteria(i) = "[COR300]"
    Case 21
        LinkCriteria(i) = "[COR400]"
    Case 22
        LinkCriteria(i) = "[COR500]"
    Case 23
        LinkCriteria(i) = "[Binder Holder?]"
    Case 24
        LinkCriteria(i) = "[Yearly Sales Volume]"
    Case 25
        LinkCriteria(i) = "[Type of Entry]"
    End Select
Next i
 
 
For i = 0 To 4
    If ViewOptions.Value = 1 Then
        If i = 0 Then
            If IsNumeric(strCriteria(i)) Then
                LinkCriteriaFinal = "(" & LinkCriteria(i) & " like " & strCriteria(i) & " &'*' )"
            Else
                LinkCriteriaFinal = "(" & LinkCriteria(i) & " like '" & strCriteria(i) & "' &'*' )"
            End If
        Else
            If IsNumeric(strCriteria(i)) Then
                LinkCriteriaFinal = LinkCriteriaFinal & " and (" & LinkCriteria(i) & " like  " & strCriteria(i) & " & '*' )"
            Else
                LinkCriteriaFinal = LinkCriteriaFinal & " and (" & LinkCriteria(i) & " like  '" & strCriteria(i) & "' & '*' )"
            End If
        End If
    Else
        If i = 0 Then
            If IsNumeric(strCriteria(i)) Then
                LinkCriteriaFinal = "(" & LinkCriteria(i) & " like " & strCriteria(i) & " &'*' )"
            Else
                LinkCriteriaFinal = "(" & LinkCriteria(i) & " like '" & strCriteria(i) & "' &'*' )"
            End If
        Else
            If IsNumeric(strCriteria(i)) Then
                LinkCriteriaFinal = LinkCriteriaFinal & " or (" & LinkCriteria(i) & " like  " & strCriteria(i) & " & '*' )"
            Else
                LinkCriteriaFinal = LinkCriteriaFinal & " or (" & LinkCriteria(i) & " like  '" & strCriteria(i) & "' & '*' )"
            End If
        End If
     End If
Next i
 
    MsgBox "The Link Criteria specified is " & LinkCriteriaFinal
 
    Me.Visible = False
 
    DoCmd.OpenForm "QueryResults", , , LinkCriteriaFinal, acFormReadOnly
 
 
Exit_cmdInitiate_Search_Click:
    Exit Sub
 
Err_cmdInitiate_Search_Click:
    MsgBox Error$
    Resume Exit_cmdInitiate_Search_Click
 
End Sub

Any ideas?

Thank you!