我想捕获并记录一些偶然错误的更多细节,但是当遇到错误时我需要代码继续其现有的行为(我认为这涉及转发到500.100处理程序)。
FUNCTION ConvertDate(TheDate)
ON ERROR RESUME NEXT
Err.Clear
ConvertDate = YEAR(TheDate) & "-" & NumberLength(MONTH(TheDate),2) & "-" & NumberLength(DAY(TheDate),2)
IF Err.Number <> 0 THEN
myErrorLogger TheDate
' *** Wanted here: Now handle this error in the usual way ***
END IF
ON ERROR GOTO 0
END FUNCTION
在我记录笔记后,我可以在最里面的循环中放置什么来引起错误的正常响应?