[讨论]重复执行

jacky789

为何程序在(1)及(2)处理完后都没有问题时也会跳去执行errstr:
?????

'------------------------------------------------------
'(1)
Public Function vbal()
dim ....
If t=1 Then GoTo errstr    '<----此时t<>1继续执行下列
...
...
rec                        '<----跳至（2）处理在（2）程序里也处理ok
errstr:
ThisDrawing.Utility.Prompt vbCrLf & "有错误状况!!"
End Function
'-----------------------------------------------------
'(2)
Public Function rec()
dim...
...
...
End Function
----------------------------'在程序（2）无错误状况下处理完后也会返回（1）
                                   '而执行errstr:语句!!!奇怪！！？？
                                   '不知道哪里还要修改一下？
 

wyj7485

If t<>1 Then '<----此时t<>1继续执行下列
...
...
rec                        '<----跳至（2）处理在（2）程序里也处理ok
else
ThisDrawing.Utility.Prompt vbCrLf & "有错误状况!!"
end if

jacky789

因为在（1）中有很多下列相似处理错误语句

If t=1 Then GoTo errstr   

所以采用：errstr

若改用if then else语句则要改一大片会乱掉...

所以想看有无较好的方法解决？？

wyj7485

正常运行后用exit sub退出

jacky789

这样似乎又偏离了！！