miro35 27.08.2010 13:24
Predmet:Datumska kontrola

Datumska polja u mojim aplikacijama su formata "dd.mm.yyyy" . Kod upisivanja u formu datuma u datumsko polje imam slučajeva gdje korisnik umjesto datuma npr. 27.08.2010 preskoči neki znak ili upiÅ¡e npr. 27.08.1 ili tako nekako.E onda se desi da access javlja onu svoju poruku.Ima li rjeÅ¡enje da kad se to desi da izbaci naÅ¡u poruku i da obriÅ¡e taj unos na formi. Imam rjeÅ¡enje za reporte na događaj On No Data i u combo boxu isto tako ali kako za format datumskog polja.

zxz 27.08.2010 19:39
Predmet:Re: Datumska kontrola

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Error(DataErr As Integer, Response As Integer)
  2.  
  3.  Select Case DataErr
  4.  
  5.  Case 2113
  6.  MsgBox "Pogresno unesen datum"
  7.  Case 11111
  8.  ' neka druga greska
  9.  End Select
  10.  
  11. End Sub

miro35 28.08.2010 09:40
Predmet:Re: Datumska kontrola

Ovo radi to mi treba,ali poslje ove poruke i dalje mi javlja access poruku,znači dvije poruke,ova iz coda i ms access-ova.

zxz 28.08.2010 16:44
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

miro35 30.08.2010 08:33
Predmet:Re: Datumska kontrola

Isprobano s tim da sam imo greške u funkciji.Samo sam izmjeno zadnja dva reda i ovako izgleda:
PreuzmiIzvorni kôd (vbnet):
  1. Function Greske(GreskaBR As Integer, Upozorenje As Integer)
  2.    
  3.       '*******************************************
  4.  
  5.       'Ime:      Greseke   (Function)
  6.    
  7.       'Sadržaj:
  8.    
  9.       'Autor:     ZXZ
  10.  
  11.       'Datum:      08 28, 2010, 04:19:37
  12.    
  13.       'Adresa: Tuzla BiH
  14.    
  15.       'Email:     zxz@icentar.ba
  16.    
  17.       'Ulazni parametri:Broj gtreske
  18.  
  19.       'Izlazni parametri: Response=0
  20.  
  21.       '*******************************************
  22.  
  23.       On Error Resume Next
  24.  
  25.        
  26.  
  27.       Select Case GreskaBR
  28.  
  29.        
  30.  
  31.       Case 1 ' ili neki drugi broj
  32.  
  33.       'neka Greska
  34.  
  35.       Case 2 'isto tako
  36.  
  37.       'neka druga
  38.  
  39.       Case 102
  40.  
  41.        
  42.  
  43.       Case 2113
  44.  
  45.       MsgBox "Pogresan datum"
  46.  
  47.       Case Else
  48.  
  49.       MsgBox " nepoznata greska br: " & Err.Number
  50.  
  51.       End Select
  52.  
  53.        
  54.  
  55.       Select Case Upozorenje
  56.  
  57.        
  58.  
  59.       Case 1 ' i ovo je isti slucaj
  60.  
  61.       'nesto
  62.  
  63.       Case 2 ' k
  64.  
  65.        
  66.  
  67.        
  68.  
  69.       Case Else
  70.  
  71.       MsgBox "Nepoznato upozorenje"
  72.  
  73.       End Select
  74.  
  75.        
  76.  
  77.       Err.Clear
  78.  
  79.       On Error GoTo 0
  80.  Response = 0
  81.   '    Greske = Err.Number0
  82.  
  83.       End Function
JoÅ¡ ću probat da mi u to datumsko polje ono Å¡ta sam pogreÅ¡no napisao izbriÅ¡e.

zxz 30.08.2010 09:30
Predmet:Re: Datumska kontrola

Onda ovdje dodas jos ovo:

Case 2113

MsgBox "Pogresan datum"
screen.activecontrol=""

samo mora biti prozor od koda zatvoren kada probas.

Odi u svoj korisnickiCP ovdje na forumu i odaberi drugi editor.
U njemu imas Opciju za kod.

miro35 30.08.2010 12:01
Predmet:Re: Datumska kontrola

Promjeno sam editor,ne radi ovo sa
PreuzmiIzvorni kôd (vbnet):
  1. Case 2113
  2.  
  3. MsgBox "Pogresan datum"
  4. screen.activecontrol=""

zxz 30.08.2010 14:35
Predmet:Re: Datumska kontrola

Hehe hocu ja napamet ali on neda proc.
Evo stavi ovako ovaj putsam probao.
Screen.ActiveControl.Undo

miro35 31.08.2010 08:36
Predmet:Re: Datumska kontrola

U pravu si to je to.Uglavnom imam za sve krive unose u combo box za text box rjeÅ¡enje za krive unose sa porukama ali za datumsko polje to nisam imao.A na forumima nisam nigdje naÅ¡ao.Ovo je odlično , a može se primjeniti na sve forme u aplikaciji sa jednom funkcijom.

zxz 31.08.2010 08:40
Predmet:Re: Datumska kontrola

E ni to nije sve.
Ja sam samo htio da te pomalo navedem.
Ja koristim tabelu gresaka.
Znaci u tabeli cuvam broj greske i opis a ova procedura je drugacija.
Ovu sam pravio iskljucivo za tebe.
Ako si voljan pratiti idemo dalje.