IBM Lotus Symphony
|
Po výskyte chyby aktivuje rutinu ošetrenia chýb alebo pokračuje vo vykonávaní programu.
On {Error GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: Ak dôjde k chybe, aktivuje rutinu ošetrenia chýb, ktorá začína na riadku "Labelname".
Resume Next: Ak dôjde k chybe, vykonávanie programu pokračuje príkazom, ktorý nasleduje za príkazom, v ktorom došlo k chybe.
GoTo 0: Deaktivuje identifikátor chyby v aktuálnej procedúre.
Príkaz On Error GoTo sa používa ako reakcia na chyby, ku ktorým dochádza v makre. Tento príkaz musí byť zadaný pri spustení procedúry (v lokálnej rutine ošetrenia chýb) alebo pri spustení modulu.
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, "toto je riadok textu"
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:
Resetovať
MsgBox "Všetky súbory budú zatvorené",0,"Chyba"
End Sub