Form_QueryUnload失效

子厄　发表于：2016-11-15 01:54:35 　

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then     
    MsgBox "当前记录未保存！确定退出？"
End If
End Sub

为什么点击窗口的关闭按钮时就直接关闭了，没有弹出消息？

我想实现的功能是点击右上角X时弹出提示，而通过其他方式关闭窗口时不弹出。帮我看看问题出在哪里

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then 
    Cancel = (MsgBox("当前记录未保存！确定退出？", vbOKCancel, "AAAA") <> vbOK)
End If
End Sub

Top

杜超发表于：2016-11-17 08:25:43

那个变量=0时才会提出提示

Top

子厄发表于：2016-11-18 20:36:25

对啊，点击右上角X时，变量UnloadMode = 0，但我点击它关闭时不会弹出提示！

Top

子厄发表于：2016-11-18 20:43:36

难道是OFFICE2016的这个不能用Form_QueryUnload吗？

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

Form_QueryUnload失效