Polje za JMBG mora biti tekstualno zbog vodećih nula. Na On Enter događaj polja datum koje se nalazi iza polja JMBG upiši sledeći kod.

Private Sub datum_Enter()
Dim dan As Long
Dim mesec As Long
Dim godina As Long
Dim datum As Date


dan = Left(Me![JMBG], 2)
mesec = Mid(Me![JMBG], 3, 2)
godina = Mid(Me![JMBG], 5, 3)

If godina > 900 Then
godina = godina + 1000
Else
godina = godina + 2000
End If

Me![datum] = DateSerial(godina, mesec, dan)

End Sub

U tabeli i na formi stavi format datuma recimo Short Date. Napravi masku recimo 00,00,00;0;0 za tabelu i 00.00.00;0;_ za polje na formi.

@Getsbi, to je OK, mada nedostaje pokoja validacija ulaznih podataka, dao sam coveku funkciju i uputio ga na ovaj forum da mu pomognete kod primene, evo naseg "razgovora" http://www.elitesecurity.org/t241309-0#1449600

Pozdrav!

Hvala puno na odgovoru nadam se da cu se snaci sa unosom koda.ps. u pitanju je pocetnik

objasni mi molim te kako da dodjem do pozicije u kojoj upisujem kod

he he...

otvori properties prozor tog textboxa i pod tabom event kliknes na dugme sa tri tackice pored opcije on enter...

ljudi hvala uspeo sam al ima jedan problem!!!! Na maticni broj 12.05.956.256817 izbaci datum rodjenja 12/12/2005

Izvinite, ali gde ste videli JMBG koji sadrzi tacke u sebi?

Ocigledno je neophodna kompletna validacija da bi se korisnik obavestio da nije dobro upisao JMBG.

tacka se javila na osnovu formatiranja polja.Da li mislite da je stvar u formatiranju?

Niste trebali da formatirate JMBG polje, vec Datum polje!

Problem je konacno resen i puno hvala svima koje sam gnjavio ovim problemom.Poydrav iy Nisa