On Error GoTo ... Resume Statement
āĻāĻāĻāĻŋ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ¸āĻāĻāĻāĻ¨ā§āĻ° āĻĒāĻ°ā§ āĻāĻāĻāĻŋ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄāĻ˛āĻŋāĻ āĻ°ā§āĻāĻŋāĻ¨ āĻ¸āĻā§āĻ°āĻŋā§ āĻāĻ°āĻž āĻšā§, āĻ āĻĨāĻŦāĻž āĻĒā§āĻ°ā§āĻā§āĻ°āĻžāĻŽ āĻāĻžāĻ˛āĻ¨āĻž āĻ¸ā§āĻĨāĻāĻŋāĻ¤ āĻāĻ°ā§ āĻ°āĻžāĻāĻž āĻšā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
On {[Local] Error GoTo Labelname | GoTo 0 | Resume Next}
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
GoTo Labelname: āĻ¯āĻĻāĻŋ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ¸āĻāĻāĻāĻŋāĻ¤ āĻšā§, āĻ¤āĻžāĻšāĻ˛ā§ "Labelname" āĻ˛āĻžāĻāĻ¨ā§ āĻļā§āĻ°ā§ āĻšā§ āĻāĻŽāĻ¨ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄāĻ˛āĻŋāĻ āĻ°ā§āĻāĻŋāĻ¨ āĻ¸āĻā§āĻ°āĻŋā§ āĻāĻ°āĻž āĻšā§āĨ¤
Resume Next: āĻ¯āĻĻāĻŋ āĻāĻāĻāĻŋ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ¸āĻāĻāĻāĻŋāĻ¤ āĻšā§, āĻ¤āĻžāĻšāĻ˛ā§ āĻ¯ā§ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻā§ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ¸āĻāĻāĻāĻŋāĻ¤ āĻšā§ā§āĻāĻŋāĻ˛ āĻ¸ā§ āĻ āĻ¨ā§āĻ¸āĻžāĻ°āĻŋ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻ¸āĻš āĻĒā§āĻ°ā§āĻā§āĻ°āĻžāĻŽ āĻāĻžāĻ˛āĻ¨āĻž āĻŦāĻšāĻžāĻ˛ āĻ°āĻžāĻāĻž āĻšā§āĨ¤
GoTo 0: Disables the error handler in the current procedure.
Local: "On error" is global in scope, and remains active until canceled by another "On error" statement. "On Local error" is local to the routine which invokes it. Local error handling overrides any previous global setting. When the invoking routine exits, the local error handling is canceled automatically, and any previous global setting is restored.
The On Error GoTo statement is used to react to errors that occur in a macro.
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
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