访问导航表单,取消卸载事件

时间:2016-06-08 20:12:47

标签: vba access-vba onunload

在导航子窗体的卸载事件中,我有以下代码。

If MsgBox ("Changes have not been locked and will be lost. Do you wish to  proceed?", vbYesNo) = vbNo Then
    Cancel = True
End If

当用户单击父窗体上的其他导航按钮之一时,它会显示“是/否”消息框,但无论您选择什么,都会继续,关闭和清除活动子窗体。是否可以取消单击导航按钮导致的导航?

1 个答案:

答案 0 :(得分:0)

你的if语句之外的内容并不清楚,但看起来你只需要使用Exit Sub命令。这将允许您完全停止导航(如果它本身是Sub),所以:

If MsgBox ("Changes have not been locked and will be lost. Do you wish to proceed?", vbYesNo) = vbNo Then
    Exit Sub
End If