IBM Lotus Symphony
|
Aktiverer en feilbehandlingsrutine etter at en feil oppstår, eller fortsetter kjøring av programmet.
On {Error GoTo Etikettnavn | GoTo 0 | Resume Next}
GoTo Etikettnavn: Hvis det oppstår en feil, aktiverer feilbehandlingsrutinen som starter på linje "Etikettnavn".
Resume Next: Hvis det oppstår en feil, fortsetter kjøringen av programmet med setningen som følger etter setningen som feilen oppstod i.
GoTo 0: Deaktiverer feilbehandleren i gjeldende prosedyre.
On Error GoTo-setningen brukes til å reagere på feil som oppstår i en makro. uttrykket må settes inn ved starten av en prosedyre (i en lokal feilbehandlingsrutine) eller ved starten av en modul.
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, "Dette er en linje med tekst"
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:
Reset
MsgBox "Alle filer blir lukket",0,"Error"
End Sub