Function Greske(GreskaBR As Integer, Upozorenje As Integer)
'*******************************************
'Ime:      Greseke   (Function)
'Sadržaj:
'Autor:     ZXZ
'Datum:      08 28, 2010, 04:19:37
'Adresa: Tuzla BiH
'Email:     zxz@icentar.ba
'Ulazni parametri:Broj gtreske
'Izlazni parametri: Response=0
'*******************************************
On Error Resume Next

Select Case GreskaBR

Case 1 ' ili neki drugi broj
'neka Greska
Case 2 'isto tako
'neka druga
Case 102

Case 2113
MsgBox "Pogresan datum"
Case Else
MsgBox " nepoznata greska br: " & Err.Number
End Select

Select Case Upozorenje

Case 1 ' i ovo je isti slucaj
'nesto
Case 2 ' k


Case Else
MsgBox "Nepoznato upozorenje"
End Select

Err.Clear
On Error GoTo 
Greske = Err.Number0
End Function