YES/NO关闭窗口,选择NO的时候,如何写代码屏蔽原系统信息?

suve

Private Sub Command50_Click()
On Error GoTo Err_Command50_Click


    DoCmd.Close

Exit_Command50_Click:
    Exit Sub

Err_Command50_Click:
    MsgBox err.Description
    Resume Exit_Command50_Click
   
End Sub


Private Sub Form_Unload(cancel As Integer)

If MsgBox("真的要退出系统吗?", vbOKCancel, "System Information") = vbCancel Then
   cancel = -1
Else
   
    AddhowDolog "退出系统"   '系统日志
    DoCmd.quit acQuitSaveAll

End If

End Sub

andymark

你上面的代码不是可以吗