여러 필드 필터링 요구 사항

Question

strFilter 결과는 다음과 같지만 Me.Filter에 전달되지 않습니다. 그 이유는 무엇입니까?
strFilter = " '20410'OR 'A20000'OR 'A20400'"

Private Sub Image_OffsetFilterButton_Click() 
Dim strFilter As String 
strFilter = "'A20410'" 
    '/ see if there is data in Field Box Text907, if so add it to the filter 
    If Me!Text907 & vbNullStr <> vbNullStr Then 
    strFilter = strFilter & " OR " & "'" & "A20000" & "'" 
End If 
    If Me!Text910 & vbNullStr <> vbNullStr Then 
    ' If FieldB is of Text type, use the ' delimiter 
    strFilter = strFilter & " OR " & "'" & "A20024" & "'" 
End If 
    If Me!Text911 & vbNullStr <> vbNullStr Then 
' If FieldB is of Text type, use the ' delimiter 
    strFilter = strFilter & " OR " & "'" & "A20400" & "'" 
End If 
'/<etc> 


If strFilter <> "" Then 
' trim off leading "OR" 
    Me.Filter = "[Account] = strFilter AND [BU] = 'B50931'" 
    Me.FilterOn = True 
Else 
    Me.Filter = "" 
    Me.FilterOn = False 
End If 

최종 하위

Answer 1

Private Sub Image_OffsetFilterButton_Click() 
Dim strFilter As String 
strFilter = "" 
'/ see if there is data in Field Box Text907, if so add it to the filter 
If Me!Text907 & vbNullStr <> vbNullStr Then 
    strFilter = strFilter & " OR [ACCOUNT] = '" & Me.Text907 & "'" 
    End If 
If Me!Text910 & vbNullStr <> vbNullStr Then 
    '/ If FieldB is of Text type, use the ' delimiter 
    strFilter = strFilter & " OR [ACCOUNT] = '" & Me.Text910 & "'" 
    End If 
If Me!Text911 & vbNullStr <> vbNullStr Then 
    '/ If FieldB is of Text type, use the ' delimiter 
    strFilter = strFilter & " OR [ACCOUNT] = '" & Me.Text911 & "'" 
End If 
'/<etc> 

    If strFilter <> "" Then 
    '\ trim off leading "OR" 
    Me.Filter = Mid(strFilter, 4) 
    Me.FilterOn = True 
Else 
    Me.Filter = "[BU] = [Forms]![Frm_Main]! [Frm_Main_TextBox_Display_BU_Number_HIDDEN].Value" 
    Me.FilterOn = False 
End If 
End Sub