Prikazi cijelu temu 03.09.2010 14:26
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Datumska kontrola
Evo ovako sam ja kod sebe stavio na dogadjaj AfterUpdate()
Private Sub DatumPrijema_AfterUpdate()
If (Date - Me.DatumPrijema > 365) Then
MsgBox "Pogrešan datum!", vbExclamation, "Nepotpun unos"
Me.DatumPrijema = Date
End If
If (Date - Me.DatumPrijema < -20) Then
MsgBox "Pogrešan datum!", vbExclamation, "Nepotpun unos"
Me.DatumPrijema = Date
End If
End Sub

Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 03.09.2010 14:26 od strane miro35.