如何实现在关闭窗体时提示 关闭 与否？

bulesky

哪个事件 可以实现在关闭一个窗体时，提示 是否 要关闭？选择 是 关闭，选择 否 返回？？

money

在窗体里面做一个[退出]按钮， 单击事件语句:

   if msgbox("您要退出本窗口吗?",vbYesNo)=vbYes then
     docmd.close
   end if

rld000

Private Sub Form_Unload(Cancel As Integer)
   Dim intResult As Integer
   intResult = MsgBox("Are you sure to close it?",vbOkCancel,"Close Window")
   If intResult = vbCancel Then
      Cancel = True
   End If
End Sub

bulesky

谢谢楼上的兄弟

liulubing

谢谢楼上的楼上兄弟。