菜鳥問題5:On Error GoTo err

[jimmyge]

1.請問On Error GoTo err啥意思?

2.請問
err:
MsgBox "条件输入错误,请在文本框中重新查询条件" + Chr(13) + Chr(10) + "例如:>=60,<> '张三'等", vbOKOnly + vbCritical, " 错误"
from_load
End Sub
又是啥意思?

3.請高手及版主指教!呵呵...

[huangjianyou]

在一个过程或函数中这是一个出错处理语句，例如：

private sub subname()
on error goto err
'处理这个过程
exit sub
err:
MsgBox "条件输入错误,请在文本框中重新查询条件" + Chr(13) + Chr(10) + "例如:>=60,<> '张三'等", vbOKOnly + vbCritical, " 错误"
end sub

^_^

[gg137zeus]

On Error GoTo err '遇到错误跳转 err：行

[jilong4]

出错跳转到err
执行
MsgBox "条件输入错误,请在文本框中重新查询条件" + Chr(13) + Chr(10) + "例如:>=60,<> '张三'等", vbOKOnly + vbCritical, " 错误"
from_load

[fishzone]

'在有错误的时候，跳转到错误处理程序。
On Error goto Errhandler
...

'你甚者可以定义自己的错误信息 比如
If a > b Then
Err.Raise 9999,,"A不能大于B"
End If

...
...

ErrHandler:
'在这里做一些一定要处理的事情，比如关上Connection, Recordset 什么的。

'下面根据不同的错误代码输出错误信息
Select Case err.number
case 0
'No Error
Case 9999
msgbox err.discription
Case 51
...
Case Else
...
end Select

[行云边]

就是VB打开了错误陷阱， 一旦遇到错误 就会 跳到err:标签 有err标签下面的代码来处理错误

另外还有 on error resume next 就是 遇到错误执行下一句

[jimmyge]

多謝樓上諸位兄台,結帖給分!呵呵...