IBM Lotus Symphony


Sætningen On Error GoTo ... Resume [Runtime]

Aktiverer en fejlhåndteringsrutine, når der opstår en fejl, eller fortsætter udførelsen af programmet.

Syntaks:

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

Parametre:

GoTo Etiket: Hvis der opstår en fejl, aktiveres den fejlhåndteringsrutine, der begynder på linje "Etiket".

Resume Next: Hvis der opstår en fejl, fortsætter udførelsen af programmet med sætningen efter den sætning, hvor fejlen er opstået.

GoTo 0:: Deaktiverer fejlhåndteringen i den aktuelle procedure.

Sætningen On Error GoTo bruges til at reagere på fejl, der opstår i en makro. Sætningen skal indsættes i begyndelsen af en procedure (i en lokal fejlhåndteringsrutine) eller i begyndelsen af et modul.

Eksempel:

Sub EksempelReset

On Error Goto ErrorHandler

Dim iNummer As Integer

Dim iAntal As Integer

Dim sLinje As String

Dim aFil As String

aFil = "c:\data.txt"

iNummer = Freefile

Open aFil For Output As #iNummer

Print #iNummer, "Dette er en tekstlinje"

Close #iNummer

iNummer = Freefile

Open aFil For Input As iNummer

For iAntal = 1 to 5

Line Input #iNummer, sLinje

If sLinje <>"" then

rem

End If

Next iAntal

Close #iNummer

Exit Sub

ErrorHandler:

Nulstil

MsgBox "Alle filer lukkes",0,"Fejl"

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker