窗体:利用VBA编写退出系统的对话提示窗体

时　间:2009-05-16 08:56:41
作　者:UMVSoft整理   ID：1445  城市：上海
摘　要:窗体:利用VBA编写退出系统的对话提示窗体
正　文:

Private Sub Form_Unload(Cancel As Integer)
Dim strMde As String
    If MsgBox("真的要退出吗？", vbQuestion + vbYesNo, "系统提示") = vbYes Then
        On Error Resume Next
        strMde = CurrentDb.Properties("MDE")
        If Err.Number = 0 And strMde = "T" Then

            DoCmd.Quit acQuitSaveNone
        End If
   
        DoCmd.Quit
    Else
        Cancel = True
    End If
End Sub