Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Ορισμός πρώτης μέρας της εβδομάδας σε γράφημα

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

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

 

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

Καλημέρα καλημέρα.
Προσπαθώντας να κάνω ένα γράφημα έχω δύο προβλήματα: στο γράφημα όπου ο άξονας χρόνου είναι σε εβδομάδες, πρώτη ημέρα είναι η Κυριακή, θα μπορούσα να ορίσω τη Δευτέρα ως πρώτη ημέρα της εβδομάδας;
Το δεύτερο πρόβλημα που αντιμετωπίζω είναι πως όταν δεν υπάρχουν εγγραφές μία εβδομάδα, στο διάγραμμα δε φαίνεται τίποτα ενώ θα ήθελα να έχει μηδενική τιμή(από την 45η εβδομάδα δείχνει την 47η).
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb Γράφημα.accdb (416,0 KB, 16 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 27-10-13, 10:52
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 498
Προεπιλογή

Καλημέρα
Σχετικά με τον σωστό αριθμό της εβδομάδας νομίζω πως λύνεται με ένα νέο πεδίο στο ερώτημα
=DatePart("ww";[Ημερομηνία];2;1)

Σχετικά με το 2ο προβληματίζομαι.

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

Καλησπέρα

Λάμπρο, ένας τρόπος για να εμφανίζονται στο διάγραμμα όλες οι εβδομάδες είναι να το βασίσεις σ’ ένα ερώτημα, που περιέχει όλες τις ημερομηνίες στο επιθυμητό χρονικό διάστημα.

Για να γίνει αυτό πρόσθεσα:

1) Τον βοηθητικό πίνακα tblHLP, που θα περιέχει όλες τις ημερομηνίες του επιθυμητού χρονικού διαστήματος.

2) Το ερώτημα qryChart στο οποίο ο πίνακας tblHLP ενώνεται με μια εξωτερική αριστερή ένωση (LEFT JOIN) με τον πίνακα των πραγματικών δεδομένων [Προπονήσεις].

Στο ερώτημα το πεδίο fDate του πίνακα tblHLp έχει αντικατασταθεί από τα υπολογιζόμενα πεδία [Έτος] και [Εβδομάδα].

Το [Ετος] χρειάζεται για την περίπτωση που το επιθυμητό χρονικό διάστημα εκτείνεται σε περισσότερα από 1 έτη.

Τα ορίσματα στη συνάρτηση που επιστρέφει την εβδομάδα του έτους ορίστηκαν έτσι ώστε
η εβδομάδα να αρχίζει από τη Δευτέρα και η 1 εβδομάδα στο έτος να είναι αυτή που περιέχει την 1/1.

3) Τη φόρμα (διάγραμμα) frmChart, που στηρίζεται στο ερώτημα qryChart.

Για την αυτοματοποίηση της εργασίας πρόσθεσα και τη φόρμα frmOpenChart.

Στη φόρμα αυτή, αφού συμπληρώσουμε την ημερομηνία έναρξης και λήξης του επιθυμητού διαστήματος κάνουμε κλικ στο κουμπί [Άνοιγμα Διαγράμματος].

Ο κώδικας που τρέχει, αφού γεμίσει τον βοηθητικό πίνακαtblHLP με τις κατάλληλες ημερομηνίες, ανοίγει τη φόρμα frmChart.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb ΓράφημαΑνάΕβδομάδα.accdb (1,06 MB, 28 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 27-10-13, 17:08
Όνομα: Λάμπρος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 04-03-2013
Μηνύματα: 45
Προεπιλογή

Χρήστο και Γιώργο σας ευχαριστώ πάρα πολύ. Μόλις τα ενσωματώσω στη βάση θα σας ενημερώσω.
Απάντηση με παράθεση
  #5  
Παλιά 28-10-13, 01:26
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

Η λύση που πρότεινα στο προηγούμενο μήνυμα έχει αδυναμίες.

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

Επίσης σε διαστήματα που εκτείνονται σε περισσότερα από ένα έτη είναι δυνατόν μια εβδομάδα να μοιραστεί σε 2 έτη.

Στην επισυναπτόμενη ΒΔ, για την εξάλειψη των παραπάνω αδυναμιών, έκανα τις παρακάτω αλλαγές:

1) Άλλαξα τον κώδικα έτσι ώστε, αν η ημερομηνία έναρξης δεν είναι Δευτέρα, να την αλλάζει στη μέγιστη μικρότερη που είναι Δευτέρα.

2) Επίσης άλλαξα τον κώδικα έτσι ώστε, αν η ημερομηνία λήξης δεν είναι Κυριακή, να την αλλάζει στη ελάχιστη μεγαλύτερη που είναι Κυριακή.

Δηλαδή δημιουργείται ένα νέο χρονικό διάστημα που περιέχει το αρχικό και αρχίζει Δευτέρα και τελειώνει Κυριακή.

3) Στο ερώτημα qryChart άλλαξα τον υπολογισμό του αριθμού των εβδομάδων έτσι ώστε η πρώτη εβδομάδα στο έτος να είναι αυτή που αρχίζει από την πρώτη Δευτέρα του έτους.

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

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb ΓράφημαΑνάΕβδομάδα2.accdb (1,41 MB, 28 εμφανίσεις)
Απάντηση με παράθεση
  #6  
Παλιά 28-10-13, 10:05
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 498
Προεπιλογή

Καλημέρα
Δεν καταφέρνω να αναδείξω τις αδυναμίες που αναφέρεις
Μπορείς σε παρακαλώ να γίνεις πιο σαφής πρακτικά;
Ανέβασε και τις 2 βάσεις όπου η μια να δείχνει το πρόβλημα και η άλλη όχι.
Απάντηση με παράθεση
  #7  
Παλιά 28-10-13, 10:57
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

Χρήστο, για να αντιληφθείς τις αδυναμίες:

1) Άνοιξε τη ΒΔ του αρχικού μηνύματός μου.

2) Στη φόρμα frmOpenChart δώσε τις ημερομηνίες 2/10/2012 και 2/3/2013 και πάτησε το κουμπί.

3) Άνοιξε το ερώτημα qryChart σε προβολή σχεδίασης και πρόσθεσε στο πλέγμα και το πεδίο fDate του πίνακα.

4)Αν τρέξεις τώρα το ερώτημα θα δεις:
  • Στην εβδομάδα 51 περιλαμβάνονται μόνο 4 ημερομηνίες (όχι 7).
  • Στην εβδομάδα 54 περιλαμβάνεται μόνο 1 ημερομηνία.
  • Στην εβδομάδα 1 του 2013 περιλαμβάνονται μόνο 6 ημερομηνίες.
  • Στην εβδομάδα 9 του 2013 περιλαμβάνονται μόνο 6 ημερομηνίες.
Όπως αντιλαμβάνεσαι το διάγραμμα δε θα ανταποκρίνεται στην πραγματικότητα, αφού σε κάποιες εβδομάδες θα αθροίζονται οι αποστάσεις 7 ημερών και σε άλλες 4, 1, 6, και 6.

Στη ΒΔ του δεύτερου μηνύματος, αν κάνεις δοκιμές, αυτό το πρόβλημα δεν υπάρχει.

Ελπίζω να έγινα σαφής.

Φιλικά/Γιώργος
Απάντηση με παράθεση
  #8  
Παλιά 28-10-13, 18:04
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 498
Προεπιλογή

Γιώργο την 7/1/2013 η 2η βάση την δηλώνει ως 1η εβδομάδα ενώ είναι η 2η. Έτσι δεν είναι;

Μάλλον πρέπει να σταματήσω να βλέπω τον αριθμό της εβδομάδος στο Microsoft Outllok.
Πράγματι η 7/1/2013 ανήκει στην 1η εβδομάδα του έτους 2013!

Θα σε μελετήσω!!!
Απάντηση με παράθεση
  #9  
Παλιά 28-10-13, 22:09
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 498
Προεπιλογή

Εμπνευσμένη λύση...

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

Χρήστο, ευχαριστώ.
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Γενικά] Ορισμός σειράς Tab xristos Excel - Ερωτήσεις / Απαντήσεις 8 21-05-12 10:46
Ορισμός Προεπιλεγμένης Τιμής Χρήστος Access - Ερωτήσεις / Απαντήσεις 6 19-02-12 20:36
[ Φόρμες ] ΟΡΙΣΜΟΣ ΤΙΜΗΣ artchrist73 Access - Ερωτήσεις / Απαντήσεις 5 05-11-11 10:21


Η ώρα είναι 07:32.