在导航子窗体的卸载事件中,我有以下代码。
If MsgBox ("Changes have not been locked and will be lost. Do you wish to proceed?", vbYesNo) = vbNo Then
Cancel = True
End If
当用户单击父窗体上的其他导航按钮之一时,它会显示“是/否”消息框,但无论您选择什么,都会继续,关闭和清除活动子窗体。是否可以取消单击导航按钮导致的导航?
答案 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