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):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 0
Response = 0
' Greske = Err.Number0
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.