【错误处理】没有错误时,为什么也执行里面的语句?
On Error GoTo ErrHandler
.......
.......
.......
ErrHandler:
MsgBox "测点编号已经存在,请重新输入! "
rs.CancelUpdate
Command3.Enabled = True
我定义了“测点编号”字段为主字段,其值应该唯一,若输入重复值程序会报错,然后用上面的错误处理语句进行提示处理。可我发现,输入测点编号值时,即使不重复也执行ErrHandler:中的语句,出现对话框 "测点编号已经存在,请重新输入! "
这是为什么?哪儿错了?
[解决办法]
中间加一个exit sub:
如:
如果是函数,则 exit function
如:
On Error GoTo ErrHandler
.......
.......
.......
exit sub 或者exit function
ErrHandler:
MsgBox "测点编号已经存在,请重新输入! "
rs.CancelUpdate
Command3.Enabled = True
[解决办法]
exit sub 或者exit function