Haj. Mislio sam da bi bilo dobro da neko ko se razumije u obradi gresaka da postavi kao tutor o tome. Neke stvari koje ce olaksati nama pocetnicima da program zbog nekih banalnih gresaka ne puca i kako ih sve pohvatati. Ako moze koji promjer i objasnjenje bio bih vam zahvalan a vjerujem i vecina ostalih ljudi. Poz.
Hvatanje i ispravka gresaka
Zaključano
Zakačeno
Evo za sugradjana:
ili
Code:
Option Explicit
Dim a As Double
Dim b As Double
Dim Rez As Double
Private Sub Command1_Click()
On Error GoTo err
a = 8
b = 0
Rez = a / b
Exit Sub ' ako nije doslo do greske program kad dodje do
' ove linije, izlazi iz procedure
err:
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
End Sub
Option Explicit
Dim a As Double
Dim b As Double
Dim Rez As Double
Private Sub Command1_Click()
On Error GoTo err
a = 8
b = 0
Rez = a / b
Exit Sub ' ako nije doslo do greske program kad dodje do
' ove linije, izlazi iz procedure
err:
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
End Sub
ili
Code:
Option Explicit
Dim a As Double
Dim b As Double
Dim Rez As Double
Private Sub Command1_Click()
On Error GoTo err
a = 8
b = 0
ponovo:
Rez = a / b
Exit Sub ' ako nije doslo do greske program kad dodje do
' ove linije, izlazi iz procedure
err:
If err.Description = "Division by zero" Then ' Ovdje obradjujemo tu gresku
b = 1
GoTo ponovo
Else
Debug.Print err.Description ' ili printamo novu gresku pa ce mo je kasnije obraditi
End If
End Sub
Option Explicit
Dim a As Double
Dim b As Double
Dim Rez As Double
Private Sub Command1_Click()
On Error GoTo err
a = 8
b = 0
ponovo:
Rez = a / b
Exit Sub ' ako nije doslo do greske program kad dodje do
' ove linije, izlazi iz procedure
err:
If err.Description = "Division by zero" Then ' Ovdje obradjujemo tu gresku
b = 1
GoTo ponovo
Else
Debug.Print err.Description ' ili printamo novu gresku pa ce mo je kasnije obraditi
End If
End Sub
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
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:
pokushaj sa
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
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
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
Potpis
- SKRati link - JaZaKraljevo.rs -
"I have never let my schooling interfere with my education." - Mark Twain
"I have never let my schooling interfere with my education." - Mark Twain