Prikazi cijelu temu 30.08.2010 08:33
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


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 09:28 od strane zxz.