如何实现在姓名查询的结果上，再根据身份证进一步查询！！

1、在<姓名>中输入“关”在下面的窗口中显示所有姓“关”的人员；

2、接着在<身份证号>中输入“5”这时显示的是所有身份证号第一位为“5”的人员，想实现的是只显示所有姓“关”的身份证号第一位为“5”的人员！！！

3、继续在<身份证号>中继续输入以下的数字，这时继续过滤出相应的姓“关”的身份证号满足条件的人员！！！

仁兄和我是一个系统的，一定是财政 局工 资科的。

但我刚学，恕不能回答。

说老实话，看楼主的代码总觉得很累。

Dim str As String
if e.Form.Controls("输入查询姓名").Value <> "" Then
    str = "([姓名] Like \'*" & e.Form.Controls("输入查询姓名").Value & "*\') And "
End If
If e.Sender.Text <> "" Then
    Tables("数据查询窗口_Table1").Filter = str & "[身份证号] Like \'*" & e.Sender.Text & "*\'"
else
    Tables("数据查询窗口_Table1").Filter = ""
    e.Sender.Value = ""
end if

呵呵，楼主其实不是在编写代码，而是在拼凑代码，所以他的代码看起来不累才怪。

反过来，先输入一部分身份证号位数，在输入姓名的某些部分如何实现