Access VBA,如何实现一个事件触发时,必须另一个事件已触发完成

有两个click事件附在两个按钮上，其一语言如下： Private Sub PODpreview_Click() On Error GoTo Err_PODpreview_Click Dim stDocName As String stDocName = "POD" DoCmd.OpenReport stDocName, acPreview Exit_PODpreview_Click: Exit Sub Err_PODpreview_Click: MsgBox Err.Description Resume Exit_PODpreview_Click End Sub 另一语言略 Private Sub modify_Click() 略.... 现在想实现按PODPreview按钮前必须已按过modify按钮，否则，对话框提示未按末地方y按钮。 如何修改PODPreview的Click事件语言？请高手指教！谢谢！

1、可将modify_Click() 定义为函数，设定当modify被点击时函数的返回值，最后在PODpreview_Click()中调用函数modify_Click() 的返回值。2、或者设定全局变量flag，在modify 中记录按钮modify的点击事件（如点击，flag=1;否则flag=0）；然后在PODpreview中调用flag的值，检查modify是否被点击。最后别忘了重置flag。 查看原帖>>

希望采纳

把事件卸载宏利用事件调用子宏