Centar za edukaciju-BiH



#1 27.08.2010 12:24
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#2 27.08.2010 18:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 28.08.2010 08:40
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#4 28.08.2010 15:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
↑  ↓

#5 30.08.2010 07:33
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 30.08.2010 08:28 od strane zxz. ↑  ↓

#6 30.08.2010 08:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 30.08.2010 11:01
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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=""

Miro
↑  ↓

#8 30.08.2010 13:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Datumska kontrola
Hehe hocu ja napamet ali on neda proc.
Evo stavi ovako ovaj putsam probao.
Screen.ActiveControl.Undo
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 31.08.2010 07:36
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#10 31.08.2010 07:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 28.09.2010 18:50 od strane zxz. ↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 4: 50 pm.