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

答案:2 悬赏:0 手机版

解决时间 2021-02-03 19:28

提问者网友：骑士
2021-02-02 22:14

有两个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事件语言？请高手指教！谢谢！

最佳答案

五星知识达人网友：执傲
2021-02-02 23:46

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

希望采纳

全部回答

1楼网友：旧脸谱
2021-02-03 01:22

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息