Prikazi cijelu temu 28.08.2010 16:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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 kôd (vbnet):
  1. Function Greske(GreskaBR As Integer, Upozorenje As Integer)
  2. '*******************************************
  3. 'Ime:      Greseke   (Function)
  4. 'Sadržaj:
  5. 'Autor:     ZXZ
  6. 'Datum:      08 28, 2010, 04:19:37
  7. 'Adresa: Tuzla BiH
  8. 'Email:     zxz@icentar.ba
  9. 'Ulazni parametri:Broj gtreske
  10. 'Izlazni parametri: Response=0
  11. '*******************************************
  12. On Error Resume Next
  13.  
  14. Select Case GreskaBR
  15.  
  16. Case 1 ' ili neki drugi broj
  17. 'neka Greska
  18. Case 2 'isto tako
  19. 'neka druga
  20. Case 102
  21.  
  22. Case 2113
  23. MsgBox "Pogresan datum"
  24. Case Else
  25. MsgBox " nepoznata greska br: " & Err.Number
  26. End Select
  27.  
  28. Select Case Upozorenje
  29.  
  30. Case 1 ' i ovo je isti slucaj
  31. 'nesto
  32. Case 2 ' k
  33.  
  34.  
  35. Case Else
  36. MsgBox "Nepoznato upozorenje"
  37. End Select
  38.  
  39. Err.Clear
  40. On Error GoTo
  41. Greske = Err.Number0
  42. End Function

A poziva se na ovaj nacin odnosno na mjesto dosadasnjeg koda stavljas ovo:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Error(DataErr As Integer, Response As Integer)
  2. Response = Greske(DataErr, Response)
  3. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.