ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Φόρμες ] Ημερολόγιο σε φόρμα με μορφοποιημένες ημέρες

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 28-12-13, 12:03
Όνομα: Λάμπρος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 04-03-2013
Μηνύματα: 45
Προεπιλογή Ημερολόγιο σε φόρμα με μορφοποιημένες ημέρες

Καλημέρα καλημέρα.
Με ποιο τρόπο θα μπορούσαμε να κάνουμε ένα ημερολόγιο που θα εμφανίζεται σε φόρμα με μορφοποιημένες τις ημερομηνίες που είναι καταχωρημένες σ’ ένα πίνακα;
Στη συνημμένη εικόνα φαίνεται όπως έχει γίνει στο Excel όπου σ’ ένα δεύτερο φύλλο είναι καταχωρημένες οι ημερομηνίες.
Αν δεν είναι εφικτό το παραπάνω, ίσως είναι πιο εύκολο με την καταχώρηση της ημερομηνίας στη φόρμα της Access να καταχωρείται και στο υπάρχον αρχείο Excel.
Έχετε κάποια πρόταση;
Συνημμένα Thumbnails
Ημερολόγιο σε φόρμα με μορφοποιημένες ημέρες-eikona-hmerologio.jpg  
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Calendar.xlsm (47,3 KB, 107 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 29-12-13, 10:07
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-08-2011
Περιοχή: Μουρνιές Χανίων
Μηνύματα: 33
Προεπιλογή

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

καλημέρα και Χρόνια Πολλά.
Συνημμένα Thumbnails
Ημερολόγιο σε φόρμα με μορφοποιημένες ημέρες-katagrafi.png   Ημερολόγιο σε φόρμα με μορφοποιημένες ημέρες-katagrafi2.png  
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb Database1.accdb (504,0 KB, 110 εμφανίσεις)
Τύπος Αρχείου: xlsm Calendar1.xlsm (40,4 KB, 103 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη dratsaki : 29-12-13 στις 10:24.
Απάντηση με παράθεση
  #3  
Παλιά 29-12-13, 11:54
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

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

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

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

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

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

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

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

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

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

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

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

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb Calendar2.mdb (568,0 KB, 169 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 29-12-13, 20:09
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

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

Ανεβάζω ενημερωμένη την εφαρμογή του Γιώργου (kapetang).
Πολύ ωραία υλοποίηση, σίγουρα θα φανεί χρήσιμη σε πολλούς.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Calendar2.zip (58,2 KB, 143 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 30-12-13, 14:22
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.249
Προεπιλογή

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

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

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

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

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

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

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

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

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

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

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

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb Calendar.mdb (528,0 KB, 265 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 31-12-13 στις 03:55. Αιτία: Βελτιώσεις στο λογικό τμήμα του κώδικα
Απάντηση με παράθεση
  #6  
Παλιά 31-12-13, 20:02
Όνομα: Λάμπρος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 04-03-2013
Μηνύματα: 45
Προεπιλογή

Σας ευχαριστώ πάρα πολύ και θα ήθελα να ζητήσω συγνώμη για την καθυστερημένη απάντησή μου.
Καλή χρονιά με υγεία και μακροημέρευση!
Απάντηση με παράθεση
  #7  
Παλιά 12-01-14, 19:10
Όνομα: Γιώργο
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-02-2010
Μηνύματα: 21
Προεπιλογή

Καλησπέρα Τάσο,
μου άρεσε πολύ το ημερολόγιο που έφτιαξες και σκέφτηκα να το χρησιμοποιήσω σε μια εφαρμογή που έχω φτιάξει. Το πρόβλημα μου είναι ότι θέλω να το χρησιμοποιήσω με πίνακα που είναι συνδεδεμένος στη βάση (linked) και μου βγάζει σφάλμα στη ρουτίνα FillDays στο rs.index. Μπορείς να με βοηθήσεις???
Απάντηση με παράθεση
  #8  
Παλιά 12-01-14, 19:34
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 500
Προεπιλογή

καλησπέρα
Κάτω απ' το
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.
Αν κάποιος έχει να προτείνει μια καλύτερη λύση βεβαίως να την
υιοθετήσω.
__________________
Φιλικά, Χρήστος

Τελευταία επεξεργασία από το χρήστη Χρήστος : 12-01-14 στις 20:19.
Απάντηση με παράθεση
  #9  
Παλιά 12-01-14, 19:47
Όνομα: Γιώργο
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-02-2010
Μηνύματα: 21
Προεπιλογή

Σε ευχαριστώ πολύ Χρήστο. Μου ζητάει να ορίσω τη μεταβλητή ExternalDB. Ως τι να την ορίσω?
Απάντηση με παράθεση
  #10  
Παλιά 12-01-14, 19:50
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 500
Προεπιλογή

DAO.Database
__________________
Φιλικά, Χρήστος
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Γενικά] Συνεχόμενες ημέρες εργασίας. bill72 Excel - Ερωτήσεις / Απαντήσεις 24 17-11-16 16:38
Αφαίρεση ωρών και μετατροπή υπολοίπου σε ημέρες ώρες. kosta Access - Ερωτήσεις / Απαντήσεις 9 08-07-15 17:42
[Γενικά] Υπολογισμός Ημερομισθιων σε συγκεκριμένες ημέρες Dolenhil Excel - Ερωτήσεις / Απαντήσεις 13 14-03-15 11:59
[ Φόρμες ] ΦΟΡΜΑ ΗΜΕΡΟΛΟΓΙΟ gaz_manos Access - Ερωτήσεις / Απαντήσεις 2 24-09-13 00:49
[Excel07] Αντιστοίχιση ημερομηνιών με ημέρες Celicamomo Excel - Ερωτήσεις / Απαντήσεις 5 09-01-12 01:02


Η ώρα είναι 06:49.