Private Sub 退出系統_Click()
On Error GoTo Err__Click
DoCmd.Quit acQuitSaveNone
Exit_退出系統_Click:
Exit Sub
Err_退出系統_Click:
MsgBox Err.Description
Resume Exit_退出系統_Click
Err__Click:
End Sub