取消Microsoft Access 错误消息而显示自定义消息

徐阿鹏

在 Error 事件发生时，任何可以截取 Microsoft Access 错误消息而显示自定义消息,
如何显示自定义消息后可以终止Microsoft Access 错误消息，有方法解决吗？

Roadbeg

在代码中加入 on error goto ... 或 on error resume next

[此贴子已经被作者于2003-3-3 16:17:36编辑过]

WTM1

Private Sub 命令8_Click()
On Error GoTo Err_命令8_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_命令8_Click:
    Exit Sub

Err_命令8_Click:
    MsgBox Err.Description
' 把MsgBox Err.Description修改为msgbox "显示信息！"就可以了！
    Resume Exit_命令8_Click
'这里表示显示信息后运行Exit_命令8_Click标号！