if msgbox("您要退出本窗口吗?",vbYesNo)=vbYes then
docmd.close
end if作者: rld000 时间: 2003-9-18 23:07
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 时间: 2003-9-19 00:27
谢谢楼上的兄弟 作者: liulubing 时间: 2008-11-4 11:29
谢谢楼上的楼上兄弟。