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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 15-02-10, 23:02
Όνομα: Πάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-02-2010
Περιοχή: Αττική
Μηνύματα: 163
Προεπιλογή Χρονικό διάστημα στην επικεφαλίδα της έκθεσης

Παιδιά καλησπέρα,
Έχω έκθεση που αντλεί στοιχεία μέσω ερωτήματος από πίνακα. Έτσι ζητάω να μου παρουσιάσει στοιχεία ενός μήνα ή πολλών μηνών (σημ. τους μήνες τους ζητάω με τη μορφή αριθμού _βλ. άλλο post "αθροίζοντας μήνες σε έκθεση"_ πχ. 1 για γενάρη, 2 για φεβρουάριος κ.οκ.
Το ερώτημά μου είναι πως γίνεται να μου εμφανίζεται στην κεφαλίδα της έκθεσης το διάστημα των μηνών που παρουσιάζω κάθε φορά; (π.χ. "Στοιχεία από Γενάρη έως Μάρτη" εάν ζητάω στοιχεία από τον 1ο έως τον 3ο μήνα ή "Στοιχεία από Γενάρη έως Ιούνιο" όταν ζητάω στοιχεία από τον 1ο έως τον 6ο μήνα κ.οκ.).
Ευχαριστώ
Πάναγιώτης
Απάντηση με παράθεση
  #2  
Παλιά 16-02-10, 01:00
Το avatar του χρήστη editolis
Super Moderator
Όνομα: Τολης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-01-2010
Περιοχή: ATHENS-GREECE
Μηνύματα: 180
Προεπιλογή

Στο control Source θα βαλεις το εξης:

="Στοιχεία από : " & Field1 & " εως " & Field2

Οπου Field1: IIf([Field]="1";"Ιανουάριο";IIf([Field]="2";'Φεβρουάριο";IIf([Field]="3";"Μάρτιο";IIf([field]="4";"Απρίλιο"))))......

Οπου Field2: IIf([Field]="1";"Ιανουάριο";IIf([Field]="2";'Φεβρουάριο";IIf([Field]="3";"Μάρτιο";IIf([field]="4";"Απρίλιο")))) κλπ - κλπ....

Νομιζω οτι σου δείχνω την διαδικασια εσυ τωρα κανε την αναλογη τροποποιηση οπως την θέλεις να φαίνεται στην εκθεση σου...

Τα field οπως ειναι μπορεις να τα περασεις και μεσα στο ερωτημα σου κατευθειαν στα κριτηρια...
Απάντηση με παράθεση
  #3  
Παλιά 16-02-10, 08:43
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλημέρα.

Συμπληρωματικά στην απάντηση του Τόλη:

Έστω ότι έχουμε το πεδίο σε φόρμα ή σε έκθεση με το όνομα TheMonth, που περιέχει τις τιμές από 1 έως 12.

Σε ένα άλλο μη δεσμευμένο πεδίο μπορούμε επίσης να χρησιμοποιήσουμε:

Μέθοδος 1
Κώδικας:
=Format(DateSerial(0;[TheMonth];1);"mmmm")
Μας επιστρέφει τους μήνες ολογράφως ανάλογα τις μορφές που έχουν οριστεί στο λειτουργικό σύστημα.
Προσοχή! Σε περιβάλλον με πχ. ρυθμίσεις ημερομηνίας στην αγγλική δεν θα εμφανιστεί το Ιανουάριος αλλά January!

Μέθοδος 2

Κώδικας:
=Choose([TheMonth];"Ιανουάριος";"Φεβρουάριος";"Μάρτιος";"Απρίλιος";"Μάιος";"Ιούνιος";"Ιούλιος";"Αύγουστος";
"Σεπτέμβριος";"Οκτώβριος";"Νοέμβριος";"Δεκέμβριος")
Μέθοδος 3

Κώδικας:
=Switch([TheField]=1;"Ιανουάριος";[TheField]=2;"Φεβρουάριος";[TheField]=3;"Μάρτιος";[TheField]=4;"Απρίλιος";
[TheField]=5;"Μάιος";[TheField]=6;"Ιούνιος";[TheField]=7;"Ιούλιος";[TheField]=8;"Αύγουστος";[TheField]=9;
"Σεπτέμβριος";[TheField]=10;"Οκτώβριος";[TheField]=11;"Νοέμβριος";[TheField]=12;"Δεκέμβριος")
Εδώ μπορούμε επιλεκτικά να παρουσιάσουμε αποτελέσματα ακόμα κι αν δεν υπάρχει ακολουθία συνθηκών πχ:

Κώδικας:
=Switch([TheField]=1;"Ιανουάριος";[TheField]=3;"Μάρτιος";[TheField]=5;"Μάιος")
Η συνάρτηση Switch μπορεί να χρησιμοποιηθεί και για κείμενα πχ.

Κώδικας:
=Switch([TheText]="Κείμενο1";"Κείμενο Προς Αλλαγή 1";[TheText]="Κείμενο2";"Κείμενο Προς Αλλαγή 2";
[TheText]="Κείμενο3";"Κείμενο Προς Αλλαγή 3")
όπου [TheText] είναι το πεδίο που περιέχει το κείμενο προς αλλαγή.


Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 16-02-10 στις 15:46.
Απάντηση με παράθεση
  #4  
Παλιά 16-02-10, 09:07
Όνομα: Πάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-02-2010
Περιοχή: Αττική
Μηνύματα: 163
Προεπιλογή

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

Τα λέμε

Τελευταία επεξεργασία από το χρήστη editolis : 16-02-10 στις 11:47.
Απάντηση με παράθεση
  #5  
Παλιά 02-03-10, 21:42
Όνομα: Πάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-02-2010
Περιοχή: Αττική
Μηνύματα: 163
Προεπιλογή

Παιδιά καλησπέρα,
Λυπάμαι αλλά δεν τα κατάφερα μέχρι τώρα με την ημερομηνία. Μήπως θα ήταν εύκολο να δίνατε καμία παραπάνω λεπτομέρια; Για παράδειγμα που μπαίνουν όλοι αυτοί οι κώδικες;
Ευχαριστώ.
Απάντηση με παράθεση
  #6  
Παλιά 02-03-10, 23:54
Το avatar του χρήστη editolis
Super Moderator
Όνομα: Τολης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-01-2010
Περιοχή: ATHENS-GREECE
Μηνύματα: 180
Προεπιλογή

Διαβασε παλι την απαντηση Νο 2.

Ο Τασος επισης σου εχει εξαιρετικα παραδειγματα.

Ενα απο αυτα διαλεξε και φτιαξε μονος σου
2 νεες στηλες στο ερωτημα σου.

Ονομασε τες πχ Field1 και Field2.

Αυτες οι στηλες θα ειναι ο οδηγος σου για
να φτιαξεις αυτο που αρχικα ζητησες στην
εκθεση σου.
Απάντηση με παράθεση
  #7  
Παλιά 03-03-10, 07:22
Όνομα: Πάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-02-2010
Περιοχή: Αττική
Μηνύματα: 163
Προεπιλογή

Σε ευχαριστώ και πάλι Τόλη
Καλημέρα
Πάνος
Απάντηση με παράθεση
  #8  
Παλιά 16-04-10, 10:24
Όνομα: Πάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-02-2010
Περιοχή: Αττική
Μηνύματα: 163
Προεπιλογή

Τόλη, Τάσο και λοιποί φίλοι καλημέρα,
Με συγχωρείτε για την ασχετοσύνη μου, αλλά αν και το προσπάθησα πολύ δε μπόρεσα να βρω μία άκρη με το συγκεκριμένο ζήτημα. Έχω πολλά να μάθω ακόμα.
Έτσι αποφάσισα να ανεβάσω ένα αρχειάκι, για όποιον έχει το χρόνο να βοηθήσει.
Να πω μόνο δύο πραγματάκια.
1. Κλίκ στην έκθεση "χρονική περίοδος". Εκεί μας ζητάει α) "ΑΠΟ ΜΗΝΑ" ==>δίνω μήνα με αριθμό (δηλ 1=γενάρης, 2=φεβρουάριος) κ.οκ. β) "ΕΩΣ ΜΗΝΑ" ==>δίνω πάλι μήνα με αριθμό γ)"ΑΠΟ ΕΤΟΣ"==>δίνω έτος (πχ. 2009) και δ) "ΕΩΣ ΕΤΟΣ"==>δίνω έτος (πχ.2010) και τότε η έκθεση ανοίγει. (σημ. για τους μήνες αριθμητικά (από 1-12) βλ. πίνακα "ΜΗΝΕΣ").
2. Στην επικεφαλίδα της έκθεσης θα ήθελα να μου αναγράφει την χρονική περίοδο που παρουσιάζονται τα στοιχεία δηλαδή εάν ζητήσω στοιχεία από Δεκέμβριο (12) του 2009 έως Μάρτιο (3) του 2010 θα ήθελα να γράφει στην επικεφαλίδα κάτι σαν: "ΑΠΟ ΔΕΚΕΜΒΡΙΟ 2009 ΕΩΣ ΜΑΡΤΙΟ 2010"
Όμως και για να το κάνω λίγο πιο δύσκολο, επιθυμητό θα ήταν (όχι όμως και απαραίτητο σε περίπτωση που θέλει πολύ κόπο να υλοποιηθεί) εάν ζητάω συγκεκριμένο μήνα και έτος πχ (από 1/2010 έως 1/2010) να αναγράφεται κάτι σαν: "ΙΑΝΟΥΑΡΙΟΣ 2010" και όχι "ΑΠΟ ΙΑΝΟΥΑΡΙΟ 2010 ΕΩΣ ΙΑΝΟΥΑΡΙΟ 2010"
Ευχαριστώ πάρα πολύ.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip ΧΡΟΝΙΚΗ ΠΕΡΙΟΔΟΣ ΣΕ ΕΚΘΕΣΗ.accdb.zip (98,7 KB, 26 εμφανίσεις)
Τύπος Αρχείου: zip ΧΡΟΝΙΚΗ ΠΕΡΙΟΔΟΣ ΣΕ ΕΚΘΕΣΗ.mdb.zip (52,7 KB, 37 εμφανίσεις)
Απάντηση με παράθεση
  #9  
Παλιά 16-04-10, 14:08
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Γεια σας!
Πάνο, βασισμένος στον τρόπο που έχεις στήσει το αρχείο σου η πρόταση μου είναι:

Πρόσθεσε ένα πεδίο στον πίνακα ΜΗΝΕΣ με το όνομα ΜΗΝΕΣ_Γεν
όπου θα συμπληρώσεις τη γενική πτώση των ονομάτων των μηνών πχ.:
ΙΑΝΟΥΑΡΙΟ ΦΕΒΡΟΥΑΡΙΟ ΜΑΡΤΙΟ κοκ.

Πρόσθεσε τα πεδία ΑΡΙΘΜΗΣΗ, ΜΗΝΑΣ και ΕΤΟΣ στην έκθεση και απόκρυψε τα
(Ιδιότητα ορατό = Όχι).
Σιγουρέψου ότι τα όνοματα των αρχείων είναι ίδια με τα αναφερόμενα παραπάνω.

Πρόσθεσε ακόμα ένα νέο πεδίο στην έκθεση και πέρασε του τον παρακάτω τύπο:

Κώδικας:
=IIf(Min([ΑΡΙΘΜΗΣΗ])=Max([ΑΡΙΘΜΗΣΗ]) And Min([ΕΤΟΣ])=Max([ΕΤΟΣ]);Min([ΜΗΝΑΣ]) & " " & Min([ΕΤΟΣ]);
"Από " & DLookUp("[ΜΗΝΕΣ_Γεν]";"[ΜΗΝΕΣ]";"[ΑΡΙΘΜΗΣΗ]= " & Min([ΑΡΙΘΜΗΣΗ])) & " " & Min([ΕΤΟΣ]) & " έως " & 
DLookUp("[ΜΗΝΕΣ_Γεν]";"[ΜΗΝΕΣ]";"[ΑΡΙΘΜΗΣΗ]= " & Max([ΑΡΙΘΜΗΣΗ])) & " " & Max([ΕΤΟΣ]))
Πρόσεξε τα κενά που ίσως σου προκαλέσουν πρόβλημα κατά την επικόλληση του τύπου στο αρχείο σου.

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #10  
Παλιά 16-04-10, 14:31
Όνομα: Πάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-02-2010
Περιοχή: Αττική
Μηνύματα: 163
Προεπιλογή

Τάσο σε ευχαριστώ πολύ
θα το προσπαθήσω και θα σε ενημερώσω
τα λέμε
Πάνος
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Επιλογή εντολής στην subform απο εντολή στην Main Form γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 5 14-11-16 21:53
Αναδυόμενο πλαίσιο μηνύματος μετά από ορισμένο χρονικό διάστημα dimitrisp Access - Ερωτήσεις / Απαντήσεις 2 08-12-14 18:51
«..Ρολλάρισμα…!» έκθεσης ΓιάννηςΣ Access - Ερωτήσεις / Απαντήσεις 6 22-01-14 22:42
[Εκτύπωση] Εκτύπωση με επικεφαλίδα kallias79 Excel - Ερωτήσεις / Απαντήσεις 8 18-01-13 13:48
[ Εκθέσεις ] Άλλα έχω στην προεπισκόπιση και άλλα στην εκτύπωση!!! prokopino Access - Ερωτήσεις / Απαντήσεις 12 19-07-10 01:29


Η ώρα είναι 19:46.