主题：[求助]逐级筛选

此主题相关图片如下：11111.jpg

老师，之前看到过这样的论坛，没找到在哪儿了，如图，我在控件“姓名“的TextChanged代码：

Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("员工档案").Filter = Filter
End If

当我筛选后，在“在职状态“的TextChanged代码：

Dim Filter As String
With e.Form.Controls("在职状态")
    If .Value IsNot Nothing Then
        Filter = "在职状态 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("员工档案").Filter = Filter
End If

没有实现，在姓名筛选后的基础上进行筛选，而是又单独筛选了一次全部符合在职状态的数据，需要逐级筛选这个怎么改呢？