Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] Ενημέρωση πεδίου φόρμας από ερώτημα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6309-enimerosi-pedioy-formas-apo-erotima.html)

Puma80! 26-04-23 11:46
Ενημέρωση πεδίου φόρμας από ερώτημα
 
Καλησπέρα σας!
Έχω κάνει ένα ερώτημα που από το ΑΜΚΑ εξάγω την ημερομηνία γέννησης .
Πώς μπορώ σε μια φόρμα να συμπληρώνεται αυτόματα η ημερομηνία γέννησης καταχωρώντας μόνο το ΑΜΚΑ .

nasos23 26-04-23 14:30
Καλησπέρα Παναγιώτη
Δοκίμασε

Κώδικας:
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 26-04-23 14:30
συνεχεια
 
καλησπερα


Εαν το ΑΜΚΑ το εχεις στη μορφη 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! 27-04-23 09:43
Σας Ευχαριστώ πολύ!!!


Η ώρα είναι 18:50.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2