Chyby - ošetření v kodu
On Error Resume Next
'při chybě pokračuj dál - tímto se program nezasekne, ale bude pokračovat dál
nědky ale potřebujeme, aby nám byla chyba oznámena a na to se používá:
ErrorHandle:
příklad:
Private Sub Form_Load()
On Error GoTo ErrorHandle
ErrorHandle:
If Err.Number = 11 Then MsgBox "nula", vbOKOnly, "Chyba"
End Sub
'nebo
ErrorHandle:
If Err.Number = 11 Then
End if
Resume Next - nevrací se na řádek s chybou, ale pokračuje na řádku pod ním
_ - podtržítka - používají se k zalamování dlouhých řádků ( příkazů )
Chr(13)& Chr(10) - kombinací těchto dvou čísle se v MsgBoxu přesuneme na další řádek
Err. - tento objekt obsahuje info o chybě - a to číslo a popisek chyby
Err.Number - získáme číslo chyby
Err.Description - získáme popis chyby
příklad:
ErrorHandle:
If Err.Number = 11 Then
MsgBox "typ chyby" & Chr(13) & Chr(10) & Err.Description _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & "číslo chyby" & Chr(13) & Chr(10) & Err.Number, vbOKOnly, "chyba"
Resume next
End if