查询后返回的数据不准确

查询不准确，请教窗体查询为什么会出现不选定部门，选择其他两项不能筛选，选定部门-选择使用状况-常用 选出后为什么结果里面有 不常用 数据

Private Sub Command5_Click()
 
On Error GoTo Err_Command5_Click

    Dim strWhere As String  '定义条件字符串
   
    strWhere = "" '设定初始值－空字符串
   
    '判断【标题】条件是否有输入的值
    If Not IsNull(Me.部门) Then
        '有输入
        strWhere = strWhere & "([部门] like '*" & Me.部门 & "*') AND "
    End If
   
    '判断【文号】条件是否有输入的值
    If Not IsNull(Me.使用状况) Then
        '有输入
        strWhere = strWhere & "([使用状况] like '*" & Me.使用状况 & "*') AND "
    End If

    '判断【内容】条件是否有输入的值
    If Not IsNull(Me.物料类型) Then
        '有输入
        strWhere = strWhere & "([物料类型] like '*" & Me.物料类型 & "*') AND "
    End If
       
    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
        '让子窗体应用窗体Command5
    Me.zct.Form.Filter = strWhere
    Me.zct.Form.FilterOn = True
     

Exit_Command5_Click:
    Exit Sub

Err_Command5_Click:
    MsgBox Err.Description
    Resume Exit_Command5_Click
   
End Sub

 点击下载此附件