[PanosPan]

Παιδιά καλημέρα,
Θα ήθελα να δουλέψω πάνω σε κάτι παρόμοιο με το ερώτημα του Αλέξη.
Αυτό που θέλω είναι απο μία ημερομηνία που εισάγω σε ένα πεδίο φόρμας στο (συνημμένο παράδειγμα [ΔΙΕΚΠΑΙΡΕΩΣΗ] ) να μου μεταφέρει σε ένα άλλο πεδίο (στο συννημένο παράδειγμα [ΜΗΝΑΣ_ΕΤΟΣ ΔΙΕΚΠΑΙΡΕΩΣΗΣ] ) τον μήνα και το έτος της ημερομηνίας.
π.χ. όταν στο πεδίο [ΔΙΕΚΠΑΙΡΕΩΣΗ] εισάγω την 22/12/1980 τότε το πεδίο [ΜΗΝΑΣ_ΕΤΟΣ ΔΙΕΚΠΑΙΡΕΩΣΗΣ] να μου επιστρέφει ΔΕΚΕΜΒΡΙΟΣ 1980.

Έχω κάνει κάτι δοκιμές με το παρακάτω, χωρίς επιθυμητό αποτέλεσμα:
private sub ΔΙΕΚΠΑΙΡΕΩΣΗ_Lostfocus ()
Dim a, b As integer

a = ΔΙΕΚΠΑΙΡΕΩΣΗ
b= Month (a)

if b = 1 then
ΜΗΝΑΣ_ΕΤΟΣ ΔΙΕΚΠΑΙΡΕΩΣΗ = "ΙΑΝΟΥΑΡΙΟΣ"
Κ.Ο.Κ.

* Αν δεν γίνεται στο ίδιο πεδίο [ΜΗΝΑΣ_ΕΤΟΣ ΔΙΕΚΠΑΙΡΕΩΣΗΣ] να μπουν μήνας και έτος (ΔΕΚΕΜΒΡΙΟΣ 1980) ας μπουν σε δύο πεδίο [ΜΗΝΑΣ] = ΔΕΚΕΜΒΡΙΟΣ & [ΕΤΟΣ}= 1980.

Ευχαριστώ πολύ
Πάνος