IBM Lotus Symphony
|
Enables an error-handling routine after an error occurs, or resumes program execution.
On {Error GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: If an error occurs, enables the error-handling routine that starts at the line "Labelname".
Resume Next: If an error occurs, program execution continues with the statement that follows the statement in which the error occurred.
GoTo 0: Disables the error handler in the current procedure.
The On Error GoTo statement is used to react to errors that occur in a macro. The statement must be inserted at the start of a procedure (in a local error-handling routine) or at the start of a module.
Sub ExampleReset
On Error Goto ErrorHandler
Dim iNumber As Integer
Dim iCount As Integer
Dim sLine As String
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
For iCount = 1 to 5
Line Input #iNumber, sLine
If sLine <>"" then
rem
end if
Next iCount
Close #iNumber
Exit Sub
ErrorHandler:
Reset
MsgBox "All files will be closed",0,"Error"
End Sub