点击X关闭窗口，关闭前弹出警告，其中取消按钮点击后不关闭窗口的代码是什么？

hshzhq

我只做了一个窗口，当关闭窗口的时候，弹出提示，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

设置
  Cancel =true
就会 退出关闭。窗体继续开着

先下车选4

管理员所说极是

hshzhq

知道了，谢谢。在网上找了好久，都不知道后面有哪些可接的代码选项。都不知道还有这么个代码