Office中国论坛/Access中国论坛

标题: [求助]怎样让按钮执行取消筛选? [打印本页]

作者: nofuture 时间: 2006-3-9 18:19
标题: [求助]怎样让按钮执行取消筛选?
Option Compare Database
Option Explicit
Private Sub form_load()
Me.Child_market.Form.AllowAdditions = False
Me.Child_market.Form.AllowDeletions = False
Me.Child_market.Form.AllowEdits = False
Me.Child_market.Form.AllowFilters = True

End Sub

'全部
Private Sub cmd_all_Click()
Me.Child_market.Form.SetFocus
DoCmd.CancelEvent
Com1 = "*"
com2 = "*"
com3 = "*"
com4 = "*"
Child_market.Requery
End Sub

'查询
Private Sub cmd_q_Click()
Child_market.Requery
End Sub

先是通过鼠标右键对选定内容进行了筛选

我想让在cmd_all_click事件里添加取消通过鼠标右键进行的筛选操作,该怎么写?

[此贴子已经被作者于2006-3-9 10:21:11编辑过]

作者: skylark 时间: 2006-3-9 18:27
试试:

.............

Child_market.FilterOn=False

Child_market.Requery

作者: nofuture 时间: 2006-3-9 18:36
那样不行的，如果把FILTERON关了，基于窗体的SQL查询也失效了~！

我觉得应该有一个对应于鼠标右键“取消筛选”的代码！

[此贴子已经被作者于2006-3-9 10:38:01编辑过]

作者: nofuture 时间: 2006-3-10 00:27
抬一抬~!

作者: 海狸先生 时间: 2006-3-10 01:22
DoCmd.RunCommand acCmdRemoveFilterSort

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