IBM Lotus Symphony


Instrukcja On Error GoTo ... Resume [środowisko wykonawcze]

Włącza procedurę obsługi błędów po wystąpieniu błędu lub wznawia wykonywanie programu.

Składnia

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

Parametry

GoTo Etykieta: Jeśli wystąpi błąd, włącza procedurę obsługi błędów, która zaczyna się od wiersza "Etykieta".

Resume Next: Jeśli wystąpi błąd, wykonywanie programu jest kontynuowane od wyrażenia występującego po wyrażeniu, w którym wystąpił błąd.

GoTo 0: Wyłącza procedurę obsługi błędów w bieżącej procedurze.

Instrukcja On Error GoTo jest używana jako reakcja na błędy występujące w makrze. Instrukcja musi znajdować się na początku procedury (w lokalnej procedurze obsługi błędów) lub na początku modułu.

Przykład

Sub Przyklad_Reset

On Error Goto Obsluga_bledu

Dim iNumer As Integer

Dim iLicznik As Integer

Dim sWiersz As String

Dim aPlik As String

aPlik = "c:\data.txt"

iNumer = Freefile

Open aPlik For Output As #iNumer

Print #iNumer, "To jest wiersz tekstu"

Close #iNumer

iNumer = Freefile

Open aPlik For Input As iNumer

For iLicznik = 1 to 5

Line Input #iNumer, sWiersz

If sWiersz <>"" then

rem

end if

Next iLicznik

Close #iNumer

Exit Sub

Obsluga_bledu:

Reset

MsgBox "Wszystkie pliki zostaną zamknięte",0,"Błąd"

End Sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe