IBM Lotus Symphony


Príkaz On Error GoTo ... Resume [Runtime]

Po výskyte chyby aktivuje rutinu ošetrenia chýb alebo pokračuje vo vykonávaní programu.

Syntax:

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

Parametre:

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.

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky