怎么做选项卡多条件查询

我想做一个选项卡多条件查询功能，并且有个文本框需要根据不同的选项卡可用和不可用。

其中“审核状态”在选项卡是明细的时候不可用，汇总时候可用。

我的代码如下：

Private Sub 查询_Click()
 Dim strWhere As String
 
 If Me.领料查询选项卡.Value = 0 Then
    If Not IsNull(Me.开始日期) Then strWhere = strWhere & " AND 领用日期>=#" & Format(Me.开始日期, "yyyy-mm-1") & "#"
    If Not IsNull(Me.结束日期) Then strWhere = strWhere & " AND 领用日期<=#" & Format(Me.结束日期, "yyyy-mm-1") & "#"
    '这里为了判断简便，最前面必定会有一个“ AND ”，这是不需要的，这里去掉它
    If IsNull(Me.开始日期.Value) = False Then
        strWhere = strWhere & " and 领用日期>=#" & Me.开始日期.Value & "#"
    End If
    If IsNull(Me.结束日期.Value) = False Then
        strWhere = strWhere & " and 领用日期<=#" & Me.结束日期.Value & "#"
    End If
    If Not IsNull(Me.品名) Then strWhere = strWhere & " AND 品名='" & Me.品名 & "'"
    If Not IsNull(Me.规格型号) Then strWhere = strWhere & " AND 规格型号='" & Me.规格型号 & "'"
    If Not IsNull(Me.领料人) Then strWhere = strWhere & " AND 领料人='" & Me.领料人 & "'"
    If FilterStr <> "" Then strWhere = strWhere & " and " & FilterStr
   
    strWhere = Mid(strWhere, 6)

    '设置子窗体的筛选器条件
    Me.frm_配件领料查询_List.Form.Filter = strWhere
     '应用筛选
    Me.frm_配件领料查询_List.Form.FilterOn = True
   
If Me.领料查询选项卡.Value = 1 Then
    If Not IsNull(Me.开始日期) Then strWhere = strWhere & " AND 领用日期>=#" & Format(Me.开始日期, "yyyy-mm-1") & "#"
    If Not IsNull(Me.结束日期) Then strWhere = strWhere & " AND 领用日期<=#" & Format(Me.结束日期, "yyyy-mm-1") & "#"
    '这里为了判断简便，最前面必定会有一个“ AND ”，这是不需要的，这里去掉它
    If IsNull(Me.开始日期.Value) = False Then
        strWhere = strWhere & " and 领用日期>=#" & Me.开始日期.Value & "#"
    End If
        End If
    If IsNull(Me.结束日期.Value) = False Then
        strWhere = strWhere & " and 领用日期<=#" & Me.结束日期.Value & "#"
    End If
    If Not IsNull(Me.审核状态) Then strWhere = strWhere & "  审核状态='" & Me.审核状态 & "'"
    Me.frm_配件领料汇总查询_List_Detail.Form.Filter = strWhere
    Me.frm_配件领料汇总查询_List_Detail.Form.FilterOn = True
        If FilterStr <> "" Then strWhere = strWhere & " and " & FilterStr

        strWhere = Mid(strWhere, 6)

    End If
    If Me.领料查询选项卡.Value = 0 Then
        Me.frm_配件领料查询_List.Form.Filter = ""
        Me.frm_配件领料查询_List.Form.FilterOn = False
    End If
    If Me.领料查询选项卡.Value = 1 Then
        Me.frm_配件领料汇总查询_List_Detail.Form.Filter = ""
        Me.frm_配件领料汇总查询_List_Detail.Form.FilterOn = False
    End If
End Sub