Office中国论坛/Access中国论坛

标题: YES/NO关闭窗口,选择NO的时候,如何写代码屏蔽原系统信息? [打印本页]

作者: suve 时间: 2006-6-28 16:16
标题: YES/NO关闭窗口,选择NO的时候,如何写代码屏蔽原系统信息?
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 时间: 2006-6-28 17:38
你上面的代码不是可以吗

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)