Ανανέωση ιστοσελίδας

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 06-07-16, 00:57
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή Μεσος όρος τιμών

Καλημέρα.

Στο συνημμένη δειγματική βάση που ανέβασα υπάρχει ένας πίνακας. Από αυτόν τον πίνακα δημιούργησα δυο ερωτήματα:

α) Το qryEx1, το οποίο εμφανίζει συγκεντρωτικά στοιχεία τιμών ανα ημέρα και
β) Το qryEx2, το οποίο εμφανίζει το μέσο όρο των τιμών του (α) ερωτήματος τις τελευταίες επτά (7) ημέρες.

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

Εάν, για παράδειγμα, έχουμε
3/6/2016 100€
5/6/2016 200€
6/6/2016 150€
ο μέσος όρος με βάση το qryEx2 είναι (100+200+150)/3 = 150 , ενώ θα ήθελα να είναι
(100+200+150)/7 = 64,28

Με άλλα λόγια, θα ήθελα, το σύνολο (άθροισμα) των τιμών των τελευταίων (7) ημερών του qryEx1, ανεξαρτήτως εαν υπάρχουν εγγραφές για όλες τις ημέρες, να διαιρείται πάντοτε διά του (7).

Σας ευχαριστώ εκ των προτέρων.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Average.zip (37,9 KB, 10 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 06-07-16, 10:09
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

Δημήτρη, δες το ερώτημα qryEx3 στο συνημμένο.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb Average2.accdb (576,0 KB, 34 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 06-07-16, 13:52
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Γιώργο,

Σε ευχαριστώ πολύ για την πρότασή σου.
Είναι ακριβώς αυτό που ήθελα να επιλύσω.

Καλή συνέχεια...
Απάντηση με παράθεση
  #4  
Παλιά 06-07-16, 18:36
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Καλησπέρα.

Σε συνέχεια των παραπάνω, θα ήθελα να ρωτήσω τους φίλους του Forum αν είναι δυνατόν να
δημιουργήσουμε ένα ερώτημα (παρόμοιο με το qryEx3 του Γιώργου) το οποίο, όμως, να έχει ως κριτήρια:

α) Στην ημερομηνία αντί του "Between Date()-6 And Date()" το "πρώτη ημέρα του τρέχοντος μήνα (;) And Date()" και
β) Το άθροισμα να διαιρείται με τις (χ) ημέρες που θα προκύπτουν από την πρώτη του τρέχοντος μήνα έως την Date.

Δηλαδή το ζητούμενο ερώτημα να εμφανίζει το άθροισμα των τιμών από την πρώτη του τρέχοντος μήνα έως σήμερα (Date) διαιρούμενο με τον αριθμό των ημερών του ιδίου χρονικού διαστήματος.

Αν, για παράδειγμα, από την πρώτη του μήνα (1/6/2016) έχουμε άθροισμα τιμών 1500€ και τρέχων μήνας έχει 12/6/2016 το αποτέλεσμα να είναι: 1500/12 = 125€ ή

αν από την πρώτη του μήνα (1/6/2016) έχουμε άθροισμα τιμών 3000€ και τρέχων μήνας έχει 25/6/2016 το αποτέλεσμα να είναι: 3000/25 = 120€ κοκ.

Σας ευχαριστώ εκ των προτέρων
Απάντηση με παράθεση
  #5  
Παλιά 07-07-16, 19:00
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Καλησπέρα.

Τελικά βρήκα μια λύση για το προαναφερόμενο ζητούμενο, χρησιμοποιώντας στο ερώτημα την έκφραση:

Eκφρ1: (Date())-(DateSerial(Year(Date());Month(Date());1))+1

Με την έκφραση αυτή στο ερώτημα έχουμε το αριθμητικό σύνολο ημερών από την πρώτη ημέρα του μήνα μέχρι σήμερα (Date).

Ανεβάζω τη βάση για ενδεχόμενες παρατηρήσεις,σχόλια ή,τέλος, άλλη πρόταση.
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb Average3.accdb (408,0 KB, 4 εμφανίσεις)
Απάντηση με παράθεση
  #6  
Παλιά 07-07-16, 21:05
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Δημήτρη, δες το ερώτημα qryEx4

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb Average4.accdb (420,0 KB, 22 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 09-07-16, 13:38
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Καλησπέρα

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

Ήδη την προσάρμοσα με επιτυχία στη βάση μου.

Καλή συνέχεια...
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
ΜΕΣΟΣ ΟΡΟΣ ΒΑΘΜΟΛΟΓΙΑΣ smasak Access - Ερωτήσεις / Απαντήσεις 10 19-01-16 12:40
[ Συναρτήσεις ] Μεσοσταθμικός μέσος όρος XristosM Access - Ερωτήσεις / Απαντήσεις 9 10-11-11 12:45


Η ώρα είναι 21:10.