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.