借用-改做求助:隐藏组合框调用筛选中的问题-望大家给予纠错

hljthzbc

版主和大家好:
  我用了一天多的时间按着别人的代码做了一个人员查询的库.
可是遇到了几个问题.
问题1.把组合框调用后-去筛选.第一次会出现--[这个对象不能包含"自动"对象"txt10"].不知是什么原因.  但清除一次,以后就好使了.
问题2.选择-姓氏时再筛选人名,会出现错误.但取消一次以后,也可以使用了,也不知什么原因.
  请版主和大家帮助我解决此难题

todaynew

似乎不必要那么多组合框控件，两个足矣。

hljthzbc

版主好
怎么纠错呀,故帮我改改

todaynew

版主好
怎么纠错呀,故帮我改改
hljthzbc 发表于 2010-7-23 09:27

第一个问题不明白什么意思。
第二个问题修改如下：
Private Sub 筛选()
Dim str As String
str = True
If Nz(Me.姓.Value, "") <> "" Then
    str = str & " and 姓名 like '" & Me.姓.Value & "*'"
End If
Me.人员管理总表子窗体.Form.Filter = str
Me.人员管理总表子窗体.Form.FilterOn = True
End Sub

hljthzbc

谢谢
随便筛选一条记录就知道问题了,就是筛选第一次时,是不让筛选的,清除一次后,就可以使用了

hljthzbc

还有这个问题没有解决.版主再给看看
   .把组合框调用后-去筛选.随便筛选一条记录就知道问题了,就是筛选第一次时,是不让筛选的,清除一次后,就可以使用了

第一次会出现--[这个对象不能包含"自动"对象"txt10"].不知是什么原因.  但清除一次,以后就好使了.

todaynew

Private Sub 筛选()
Dim str As String
str = True
If Nz(Me.姓.Value, "") <> "" Then
    str = str & " and 姓名 like '" & Me.姓.Value & "*'"
End If
Me.人员管理总表子窗体.Form.Filter = str
Me.人员管理总表子窗体.Form.FilterOn = True
Me.姓.Value =null
End Sub

此外“第一次会出现--[这个对象不能包含"自动"对象"txt10"].不知是什么原因.  但清除一次,以后就好使了.
”这个问题没发现。

hljthzbc

版主麻烦了.你上边的代码可以筛选姓,可是不能筛选到人名了

hljthzbc

此贴没有完全解决,那位来帮助解决一下

hljthzbc

此贴没有完全解决,那位来帮助解决一下