[nisgia]

Καλημέρα Αλέξη!

Για να δημιουργήσεις το πεδίο με το όνομα ημέρας, άνοιξε τη φόρμα "sfrmNameDates"
σε προβολή σχεδίασης και δημιούργησε ένα αντίγραφο του πεδίου fldDate δίπλα από το υπάρχον.

Στη συνέχεια δώσε στην ιδιότητα Μορφή (format) την τιμή "dddd" (χωρίς τα εισαγωγικά).
Στο αρχικό πεδίο fldDate δώσε μια πιο σύντομη μορφή ημερομηνίας και είσαι έτοιμος.

Αν κολλήσεις κάπου, εδώ είμαστε.

Επίσης, επειδή το παράκανα λίγο με τις διαθέσιμες ημερομηνίες του πίνακα ztblDates,
εκτέλεσε την διαδικασία MakeDates με ένα μικρότερο φάσμα ημερομηνιών
ώστε να ελαφρύνει λίγο το αρχείο.

Για παράδειγμα:

Sub MakeDates()
    Dim i As Long
    
    i = #1/1/2009#
    CurrentDb.Execute ("DELETE * FROM ztblDates")
    With CurrentDb.TableDefs("ztblDates").OpenRecordset
        While i < #1/1/2019#
            .AddNew
            .Fields("fldDate") = i
            .Update
            i = i + 1
        Wend
        .Close
    End With
End Sub

Τα λέμε!
Γιάννης