Ημερολόγιο σε φόρμα με μορφοποιημένες ημέρες
 

Καλημέρα καλημέρα.
Με ποιο τρόπο θα μπορούσαμε να κάνουμε ένα ημερολόγιο που θα εμφανίζεται σε φόρμα με μορφοποιημένες τις ημερομηνίες που είναι καταχωρημένες σ’ ένα πίνακα;
Στη συνημμένη εικόνα φαίνεται όπως έχει γίνει στο Excel όπου σ’ ένα δεύτερο φύλλο είναι καταχωρημένες οι ημερομηνίες.
Αν δεν είναι εφικτό το παραπάνω, ίσως είναι πιο εύκολο με την καταχώρηση της ημερομηνίας στη φόρμα της Access να καταχωρείται και στο υπάρχον αρχείο Excel.
Έχετε κάποια πρόταση;

Καλημέρα και χρόνια πολλά σε όλους.
Σαν αρχάριος για απλή αυτόματη ενημέρωση δεδομένων από πίνακα της access θα σου προτείνω ότι πρότεινα και στην Γωγώ, σύνδεση μέσω excel του ΄΄ δείχνεις΄΄ στην βάση δεδομένων τον/ους πίνακα/κες που θέλεις και για να ανανεώνεται αυτόματα πας στις ιδιότητες, δες τις εικόνες και τα συνημμένα (στην επιφάνεια εργασίας) έτσι όποια αλλαγή στην access απεικονίζεται με το άνοιγμα στο excel .

καλημέρα και Χρόνια Πολλά.

Καλημέρα στην παρέα

Στο επισυναπτόμενο αρχείο υπάρχει μια προσέγγιση του ζητούμενου ημερολογίου.

Το ημερολόγιο εμφανίζει:

1) Τη σημερινή ημερομηνία με μεγαλύτερα και έντονα ψηφία.

2) Με κόκκινο χρώμα το φόντο των ημερομηνιών που περιέχονται στον πίνακα Dates.

Η εφαρμογή δεν είναι ολοκληρωμένη. Ελπίζω όποιος ενδιαφέρεται να βρει το χρόνο να τη συμπληρώσει και να την ανεβάσει στο φόρουμ.

Λειτουργεί μόνο για τους μήνες Ιανουάριο, Φεβρουάριο και Δεκέμβριο.

Για να λειτουργεί και για τους υπόλοιπους μήνες απαιτείται:

1) Να δοθούν, στη σχεδίαση της φόρμας, τα κατάλληλα ονόματα στα textbox και για τους μήνες αυτούς (τα έδωσα μόνο στον Ιαν, Φεβ και Δεκ) .

Το όνομα του textbox που είναι 5 στο μήνα Μάρτιο (3 μήνα) είναι: t5_3

2) Να αφαιρεθεί από τον κώδικα η γραμμή κώδικα που πρόσθεσα για να λειτουργεί η εφαρμογή μόνο για τους μήνες Ιαν, Φεβ και Δεκ.

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

Καλησπέρα και Χρόνια Πολλά σε όλους.

Ανεβάζω ενημερωμένη την εφαρμογή του Γιώργου (kapetang).
Πολύ ωραία υλοποίηση, σίγουρα θα φανεί χρήσιμη σε πολλούς.

Καλησπέρα και Χρόνια Πολλά σε όλους.

Δείτε ακόμα ένα παράδειγμα με βάση το αρχείο που εξέλιξαν ο Γιώργος και ο Στέλιος.

Στο παράδειγμα αυτό:

Χρησιμοποιούνται ετικέτες αντί για πεδία κειμένου.

Το χρώμα του φόντου και του πρώτου πλάνου σε ημερομηνίες που περιέχουν συμβάντα μπορεί να ρυθμιστεί από το χρήστη.

Υπάρχει Οπτικό εφέ όταν το ποντίκι περνά πάνω από ημερομηνίες.

Το ίδιο ισχύει και για μια ετικέτα πάνω στην οποία έγινε κλικ από το χρήστη

Κάνοντας διπλό κλικ σε μια ετικέτα ανοίγει η φόρμα καταχώρησης συμβάντων με την αντίστοιχη ημερομηνία.

Η αποθήκευση δεδομένων της φόρμας αυτής γίνεται μετά από πάτημα κουμπιού ή ενδεχομένως με επικύρωση μηνύματος (MsgBox).

Το αρχείο είναι ανοιχτό για βελτιώσεις.

Καλή συνέχεια!

Τάσος

Σας ευχαριστώ πάρα πολύ και θα ήθελα να ζητήσω συγνώμη για την καθυστερημένη απάντησή μου.
Καλή χρονιά με υγεία και μακροημέρευση!

Καλησπέρα Τάσο,
μου άρεσε πολύ το ημερολόγιο που έφτιαξες και σκέφτηκα να το χρησιμοποιήσω σε μια εφαρμογή που έχω φτιάξει. Το πρόβλημα μου είναι ότι θέλω να το χρησιμοποιήσω με πίνακα που είναι συνδεδεμένος στη βάση (linked) και μου βγάζει σφάλμα στη ρουτίνα FillDays στο rs.index. Μπορείς να με βοηθήσεις???

καλησπέρα
Κάτω απ' το
Me.Painting = False

Αντικατέστησα το τμήμα:
Set rs = CurrentDb.OpenRecordset("Dates", dbOpenTable)
Με:
'Open the external database
Set ExternalDB = DBEngine.Workspaces(0).OpenDatabase("βάλε το path της Backend μέσα στα εισαγωγικά πχ C:\Φάκελος\Υποφάκελος\βάση.ac cdb", False, False, ";pwd=κωδικός της Backend")
'Open a Recordset on the table
Set rs = ExternalDB.OpenRecordset("Dates", dbOpenTable)

και χρησιμοποίησα κι εγώ την calendar.mdb σε split βάση με κωδικό στην Backend.
Αν κάποιος έχει να προτείνει μια καλύτερη λύση βεβαίως να την
υιοθετήσω.

Σε ευχαριστώ πολύ Χρήστο. Μου ζητάει να ορίσω τη μεταβλητή ExternalDB. Ως τι να την ορίσω?

DAO.Database