IBM Lotus Symphony


On Error GoTo ... Resume-Anweisung [Laufzeit]

Verzweigt nach dem Auftreten eines Fehlers während der Programmausführung in eine Fehlerbehandlungsroutine oder setzt die Programmausführung fort.

Syntax:

On {Error GoTo Labelname | GoTo 0 | Resume Next}

Parameter:

GoTo Labelname: Beim Auftreten eines Fehlers wird die Fehlerbehandlungsroutine aufgerufen, die an der Zeile "Labelname" beginnt.

Resume Next: Beim Auftreten eines Fehlers wird die Programmausführung mit der Anweisung fortgesetzt, die auf die Anweisung folgt, in der der Fehler aufgetreten ist.

GoTo 0: Inaktiviert die Fehlerbehandlung in der aktuellen Prozedur.

Die Anweisung "On Error GoTo" wird verwendet, um auf auftretende Fehler in einem Makro zu reagieren. Sie muss zu Beginn einer Prozedur (in einer lokalen Fehlerbehandlungsroutine) oder eines Moduls eingefügt werden.

Beispiel:

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, "Dies ist eine Textzeile"

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:

Zurücksetzen

MsgBox "Alle Dateien werden geschlossen",0,"Fehler"

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken