[求助] 学习高手案例时遇到的问题——查询复选框

itez

Public Sub chaxun()
Dim stw As String
stw = ""
If Not IsNull(Me.职工编号) Then stw = "[职工编号]='" & Me.职工编号 & "' and "
If Not IsNull(Me.姓名) Then stw = "[姓名]='" & Me.姓名 & "' and "
If Not IsNull(Me.胆结石) Then stw = "[胆结石]='" & Me.胆结石 & "' and "
If Not IsNull(Me.脂肪肝) Then stw = "[脂肪肝]='" & Me.脂肪肝 & "' and "
If Len(stw) > 1 Then stw = Left(stw, Len(stw) - 5)
Me.[表1 子窗体].Form.FilterOn = True
Me.[表1 子窗体].Form.Filter = stw
End Sub

Private Sub 胆结石_AfterUpdate()
  Call chaxun
End Sub

Private Sub 姓名_AfterUpdate()
  Call chaxun
End Sub

Private Sub 脂肪肝_AfterUpdate()
  Call chaxun
End Sub

Private Sub 职工编号_AfterUpdate()
  Call chaxun
End Sub



现在查询职工编号和姓名都没有问题，查询复选框格式的胆结石和脂肪肝就报错了，请教高手指教，谢谢！

itez

文件

[此贴子已经被作者于2006-5-17 13:36:03编辑过]

一点通

上传例子会更容易帮你测试

itez

我访问这个论坛的速度有些慢，昨天费了好大劲上传了文件，谁知却没有在帖子中显示链接。

文件链接是：http://bbs.office-cn.net/viewFile.asp?BoardID=2&ID=17836

还有一个问题：就是如果有重名的话，如两个叫张三的人，先搜索姓名再搜索职工编号就无法得到唯一记录，不知为什么，但不是重要问题，所以不解决也无所谓。

谢谢！

zyz218

wangru

kankan,先