IBM Lotus Symphony
|
Włącza procedurę obsługi błędów po wystąpieniu błędu lub wznawia wykonywanie programu.
On {Error GoTo Etykieta | GoTo 0 | Resume Next}
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.
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