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