主题：筛选求助

 Filter = Filter & "离职日期 Is null " '离职日期为空

Dim Filter As String

With e.Form.Controls("登记日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "登记日期 <= '" & .Value & "'"
    End If
End With

With e.Form.Controls("离职日期")
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    If .Value Is Nothing Then
        Filter = Filter & "离职日期 Is null "  '离职日期为空
    Else
        Filter = Filter & "离职日期 >= '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("在职查询_Table1").Filter = Filter
End If