Za hvatanje greshaka je pametnije koristiti Err.Number umesto Err.Description, jer nije bash efikasno kucati opise greshaka, ima i dugachkih opisa... Tako da, umesto:
Code:
If err.Description = "Division by zero" Then ' Ovdje obradjujemo tu gresku
MsgBox "Nemoguce je djeljenje sa nulom"
Else
Debug.Print err.Description ' ili printamo novu gresku pa ce mo je kasnije obraditi
End If
pokushaj sa
Code:
Select Case Err.Number
Case 6 '*** Ovo je Division by zero greshko
MsgBox "Nemoguce je djeljenje sa nulom"
Case Else
MsgBox "Desila se nepredvidjena greska!" & vbCrLf & "Kod greske: " & Trim(Cstr(Err.Number)) & vbCrLf & "Opis: " & vbCrLf & Err.Description
End Select
-
SKRati link -
JaZaKraljevo.rs -
"I have never let my schooling interfere with my education." - Mark Twain