怎样把系统提示的错误信息显示出来

Question

我在程序中DataEnvironment1.Connection1.Open部分出错，我希望能把系统提示的错误信息中的一部分显示给用户看(以msgbox的形式)，一部分不要显示，并且看完后程序还可以正常运行下去而不是异常终止，我该怎么做？

Answer 1

你可以在错误处理中加入：MsgBox "意外错误" & Err.Number & ":" & Err.Description, vbInformation, "******"来对出现的错误进行描述，如果想继续执行则在上面的语句后面加上：“Resume Next”

Answer 2

on error resume next
'写下你的程序
if err.number <> 0 then
    msgbox err.description
end if

Answer 3

On Error Goto err
 
    '你的程序  err:
    msgbox"err.Number,err.Describe",vbInformation,"错误"

Answer 4

sub  aaaaa()
   On Error GoTo ErrHandle   exit Sub
ErrHandle:
   msgbox"err.Number,err.Describe",vbInformation,"错误"
   Resume Next 
end sub