如何捕捉“取消筛选/排序”菜单引发的事件

xlonger

如何捕捉“取消筛选/排序”菜单引发的事件。

主子窗体形式，子窗体是数据表视图。主窗体上有输入条件的几个文件框，一个命令按钮，点击该按钮，会对子窗体应用筛选（filter=where,filter on=true）。取消筛选，我没有在主窗体上增加命令按钮，而是用自定义菜单的“取消筛选/排序”菜单项。点击这个“取消筛选/排序”菜单项，子窗体的筛选就取消了，如何捕捉这个子窗体的筛选取消事件，我想在这个事件中加入需要的代码。

谢谢。




后来，我自己解决了问题，捕捉这个子窗体的筛选取消事件，最初的设想是在子窗体form_applyfilter中写代码，后来发现，应该在主窗体的form_applyfilter中判断。

[此贴子已经被作者于2006-7-15 14:40:54编辑过]

wuaza

Form_ApplyFilter

xlonger

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)


ApplyFilter 事件过程具有以下参数：














参数


说明





Cancel


该设置决定是否应用筛选。将 Cancel 参数设为 True (-1) 可以阻止应用筛选。也可以使用 [url=mkMSITStore:d:\Program%20Files\Microsoft%20Office%202000\Office\2052\acmain9.chm::/html/acobjDoCmd.htm]DoCmd[/url] 对象的 [url=mkMSITStore:d:\Program%20Files\Microsoft%20Office%202000\Office\2052\acmain9.chm::/html/acmthactCancelEvent.htm]CancelEvent[/url] 方法来取消应用的筛选。





ApplyType


所执行的操作将引起发生 ApplyFilter 事件。ApplyType 参数可以是以下内部常量之一：








常量


值








acShowAllRecords


0








acApplyFilter


1








acCloseFilterWindow


2








acApplyServerFilter


3








acCloseServerFilterWindow


4











Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)


If ApplyType = 0 Then


MsgBox "oo"
End If


End Sub


上面是子窗体的Form_ApplyFilter的代码，我在对子窗体取消筛选时，msgbox "oo"没有运行，为何？根据帮助，ApplyType = 0，代表取消筛选。

xlonger

我顶

andymark

参考这个例子，原理一样的

http://www.office-cn.net/forum.php?mod=viewthread&tid=40358&replyID=&skin=1

xlonger

例子是好的，我一下子还看不懂，先收藏。