Private Sub ExampleSub() On Error Resume next Err.Clear '先清空 ... ... Rs.Open "Select * from T1",cnn,1,3 '关键步骤,容易出现错误行之后进行错误检测: if Err.Number<>0 then msgbox err.description exit sub end if ... ... End Sub
To: pcwak(书剑狂生) 我觉得还是将Err.Description 翻译成具体的信息比较好,客户不一定能看懂这些信息,就算是程序员有时本身也未必清楚。
On Error GoTo MemoryFree Exit Function MemoryFree: 1。在当前窗口的STATUSBAR中写上ERR.description 2。如果在使用一段时间后,发现几个问题是用户常出现的,可以给一个提示对话框,并加一个更容易让用户理解的解决,再加上解决方法(如果用户端可以自己解决的话) 3。发一份MAIL给管理员,说明是用户是谁,用的哪台电脑,再将出错信息也发一份
Exit Function
ErrHandler:
msgbox Err.Description
On Error Resume next
Err.Clear '先清空
...
...
Rs.Open "Select * from T1",cnn,1,3
'关键步骤,容易出现错误行之后进行错误检测:
if Err.Number<>0 then
msgbox err.description
exit sub
end if
...
...
End Sub
我觉得还是将Err.Description 翻译成具体的信息比较好,客户不一定能看懂这些信息,就算是程序员有时本身也未必清楚。
http://search.csdn.net/Expert/topic/1646/1646434.xml?temp=.113003
http://search.csdn.net/Expert/topic/308/308153.xml?temp=.4211389本人收集了这么几个有价值的贴子,打算再考虑考虑,有兴趣的请看一下。大家再讨论讨论。打算过几天再结贴。
Exit Function
MemoryFree: 1。在当前窗口的STATUSBAR中写上ERR.description
2。如果在使用一段时间后,发现几个问题是用户常出现的,可以给一个提示对话框,并加一个更容易让用户理解的解决,再加上解决方法(如果用户端可以自己解决的话)
3。发一份MAIL给管理员,说明是用户是谁,用的哪台电脑,再将出错信息也发一份