Office中国论坛/Access中国论坛

标题: 借用-改做求助:隐藏组合框调用筛选中的问题-望大家给予纠错 [打印本页]

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

作者: todaynew 时间: 2010-7-23 09:18
似乎不必要那么多组合框控件，两个足矣。

作者: hljthzbc 时间: 2010-7-23 09:27
版主好
怎么纠错呀,故帮我改改

作者: todaynew 时间: 2010-7-23 09:31

版主好
怎么纠错呀,故帮我改改
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 时间: 2010-7-23 09:52
谢谢
随便筛选一条记录就知道问题了,就是筛选第一次时,是不让筛选的,清除一次后,就可以使用了

作者: hljthzbc 时间: 2010-7-23 12:42

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

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

作者: todaynew 时间: 2010-7-23 13:17
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 时间: 2010-7-23 14:18
版主麻烦了.你上边的代码可以筛选姓,可是不能筛选到人名了

作者: hljthzbc 时间: 2010-7-24 07:18
此贴没有完全解决,那位来帮助解决一下

作者: hljthzbc 时间: 2010-7-24 13:33
此贴没有完全解决,那位来帮助解决一下

作者: todaynew 时间: 2010-7-24 14:06

此贴没有完全解决,那位来帮助解决一下
hljthzbc 发表于 2010-7-24 13:33

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

作者: hljthzbc 时间: 2010-7-25 10:16
这个附件也没有得到解决,请版主和大家帮忙

作者: hljthzbc 时间: 2010-7-26 10:19
此贴没有完全解决,那位来帮助解决一下

作者: 石三少 时间: 2010-7-26 14:56
我把红尘的通用筛选放在你的窗体上，自己参考下

作者: csq_chen 时间: 2010-7-26 15:25
..貌似你代码中很多控件的名称都无法在你提供的窗体中找到
比如“txt17","txt10","txt8"等等

Private Sub com15_Click()

X = Me.txt17 & Me.txt8

If Me.txt17 & Me.txt10 = X Then
Me.txt10 = ""
Else
Me.txt10 = Me.txt8
End If

End Sub

作者: hljthzbc 时间: 2010-7-26 15:54
我是用别人的代码改的,所以窗体代码中会有这些的

作者: Dragxixi 时间: 2010-7-26 16:07
先把不要用的代码全部去掉再试试！

作者: hljthzbc 时间: 2010-7-26 17:02
我去掉了代码也不行,

作者: hljthzbc 时间: 2010-7-27 10:05
第一个问题解决.
第二个问题:姓氏的问题还会出现,谁在电脑用ACCESS 2003再给看看.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)