Εξαγωγή ημερομηνίας και ημέρας σε φόρμα

[kapetang]

Καλησπέρα

Όποιος βιάζεται σκοντάφτει.
Σε προηγούμενο μήνυμα έγραφα ότι αν προστεθεί ένα υπολογιζόμενο πεδίο «ΔΙΕΚΠΑΙΡΕΩΣΗΟΝΟΜΑΣΤΙΚΑ» στον πίνακα είναι επικίνδυνο γιατί μπορεί να μη συμφωνεί με το «ΔΙΕΚΠΑΙΡΕΩΣΗ» από το οποίο υπολογίζεται.
Ο κώδικας που έγραψα συντονίζει τα δύο πεδία μόνο όταν προσθέτουμε νέες εγγραφές και όχι και όταν τροποποιούμε. Εύκολα συνεπώς μπορούμε να καταλήξουμε σε ασυντόνιστα πεδία.
Για να περιοριστεί ο κίνδυνος πρέπει να αντικατασταθεί ο κώδικας

Private Sub ΔΙΕΚΠΑΙΡΕΩΣΗ_Exit(Cancel As Integer)
    If Me.NewRecord Then
        If Not IsNull(Me![ΔΙΕΚΠΑΙΡΕΩΣΗ]) Then
            Me![ΔΙΕΚΠΑΙΡΕΩΣΗΟΝΟΜΑΣΤΙΚΑ] = Format(Me![ΔΙΕΚΠΑΙΡΕΩΣΗ], "mmmm, yyyy")
        End If
    End If
End Sub

με τον ακόλουθο

Private Sub ΔΙΕΚΠΑΙΡΕΩΣΗ_Exit(Cancel As Integer)
    Me![ΔΙΕΚΠΑΙΡΕΩΣΗΟΝΟΜΑΣΤΙΚΑ] = Format(Me![ΔΙΕΚΠΑΙΡΕΩΣΗ], "mmmm, yyyy")
End Sub

Φιλικά/Γιώργος