Predmet:Re: Datumska kontrola
Eh dobro je da radi.
Namjerno sam to ispustio da bi se ti ponovo javio.
To mozes rijesiti ako na kraju procedure dodas jos:
err.clear
On error goto 0
response=0
Ali hajdmo ici dalje ka usavrsavanju toga:
Evo u prilogu procedura koju trebas staviti u neki modul.
Kada je isprobas javis se ponovo da je sve uredu ili nije.
PreuzmiIzvorni kd (vbnet):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
A poziva se na ovaj nacin odnosno na mjesto dosadasnjeg koda stavljas ovo:
PreuzmiIzvorni kd (vbnet):Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = Greske(DataErr, Response)
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.