Office中国论坛/Access中国论坛

标题: 点击X关闭窗口，关闭前弹出警告，其中取消按钮点击后不关闭窗口的代码是什么？ [打印本页]

---

作者: hshzhq    时间: 2016-1-19 22:32
标题: 点击X关闭窗口，关闭前弹出警告，其中取消按钮点击后不关闭窗口的代码是什么？
我只做了一个窗口，当关闭窗口的时候，弹出提示，vbyesNOcancel。

1. Private Sub Form_Unload(Cancel As Integer)
   
2. Dim myval As String
   
3. If Text118.Value = 销售日期 And Combo132.Value = 代理人 And Combo138.Value = 收货人 And Combo144.Value = 经办人 And Combo150.Value = 销售类型 And Combo156.Value = 快递 And Text162.Value = 快递单号 Then
   
4. Form.Undo
   
5. Else:
   
6. myval = MsgBox("文本信息已更改，是否进行保存？", vbExclamation + vbYesNoCancel, "提示信息")
   
7. If myval = vbYes Then
   
8. MsgBox "保存成功", , "提示"
   
9. DoCmd.Close
   
10. End If
    
11. If myval = vbNo Then DoCmd.Close
    
12. If myval = vbCancel Then
    
13. End If
    
14. End Sub
    

复制代码

If myval = vbCancel Then......这段代码后面不知道怎么写才能取消关闭功能。
选择vbYes的时候保存操作并关闭，选择vbNo的时候直接关闭窗口，而选择vbcancel的时候我希望退出关闭操作，还是继续保持窗口开着。
所以这个Then后面要怎么写？

---

作者: tmtony    时间: 2016-1-19 22:58
设置
  Cancel =true
就会 退出关闭。窗体继续开着

---

作者: 先下车选4    时间: 2016-1-20 09:05
管理员所说极是

---

作者: hshzhq    时间: 2016-1-20 11:18
知道了，谢谢。在网上找了好久，都不知道后面有哪些可接的代码选项。都不知道还有这么个代码

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3