[ Φόρμες ] Ενημέρωση πεδίου φόρμας από ερώτημα

[Puma80!]

Καλησπέρα σας!
Έχω κάνει ένα ερώτημα που από το ΑΜΚΑ εξάγω την ημερομηνία γέννησης .
Πώς μπορώ σε μια φόρμα να συμπληρώνεται αυτόματα η ημερομηνία γέννησης καταχωρώντας μόνο το ΑΜΚΑ .

[nasos23]

Καλησπέρα Παναγιώτη
Δοκίμασε

Private Sub ΑΜΚΑ_AfterUpdate()
 Dim x As String
 x = DateSerial(Mid(ΑΜΚΑ, 5, 2), Mid(ΑΜΚΑ, 3, 2), Mid(ΑΜΚΑ, 1, 2))
 Me.ΗμΓέννησης = Format(x, "dd\/mm\/yyyy")
End Sub

[pakos]

καλησπερα


Εαν το ΑΜΚΑ το εχεις στη μορφη 05062014............


left([AMKA];2)&"/"&mid([AMKA]);3;2)&"/"&mid([AMKA]);5;4)

εαν το κανεις σε vba διαδικασια συμβαντος ---> αντι ; (ερωτηματικο) ,(κομα)

Me.ΗμΓέννησης = left([AMKA],2) & "/" & mid([AMKA]),3,2) & "/" & mid([AMKA]),5,4)

[Puma80!]

Σας Ευχαριστώ πολύ!!!