Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#11
| ||||
| ||||
Οχι ειναι παλιος τυπος και απλα σου βγαζει κενο στο αποτελεσμα οταν δεν εχεις περασει στοιχεια. Εαν θελουμε να μας βγαζει το 0 τοτε χρησιμοποιουμε αυτο τον τυπο: Ας το κανουμε καλυτερο λοιπον: =nz(DSum("([ΧΡΕΩΣΗ]-[ΠΙΣΤΩΣΗ])";"ΚΙΝΗΣΕΙΣΠΕΛΑΤΩΝ";"[ΑΑΚΙΝΗΣΗΣ]<=[FORMS]![ΠΕΛΑΤΕΣ-ΕΜΦΑΝΙΣΗ ΚΑΡΤΕΛΑΣ ΠΕΛΑΤΗ ΔΕΥΤΕΡΕΥΟΥΣΑ]![ΑΑΚΙΝΗΣΗΣ]");0)
__________________ http://www.facebook.com/home.php?ref...00000309992857 |
#12
| |||
| |||
Καλημέρα στην παρέα Και μια άλλη προσέγγιση. Το πρόβλημα του Δήμου αποτελεί μια παραλλαγή του υπολογισμού των μερικών αθροισμάτων των τιμών μιας στήλης. Το μερικό άθροισμα για τη i γραμμή της στήλης ισούται με το άθροισμα των τιμών όλων των προηγούμενων γραμμών (< i ) και της ίδιας (i). Στη βάση δεδομένων που επισυνάπτω δίνεται μία λύση για το ακόλουθο πρόβλημα: Σε ένα πίνακα (tblExports) έχουμε την αξία τους (ExportAmount) κατά ημερομηνία (ExportDate) και τον κωδικό τους (ExportID). Στην ίδια ημερομηνία μπορούν να γίνουν πολλές εξαγωγές. Θέλουμε σε μία φόρμα (frmExports) να εμφανίζονται τα μερικά αθροίσματα των εξαγωγών αφού ταξινομηθούν πρώτα κατά ημερομηνία (ExportDate) και μετά κατά τον κωδικό τους (ExportID). Η λύση δόθηκε με ένα υποερώτημα στο ερώτημα qryExports: Κώδικας: SELECT tblExports.*, (Select sum(ExportAmount) From tblExports as E where E.ExportDate<tblExports.ExportDate or ( E.ExportDate=tblExports.ExportDate and E.ExportID<=tblExports.ExportID)) AS SubTotal FROM tblExports ORDER BY tblExports.ExportDate, tblExports.ExportID; Φιλικά/Γιώργος |
#13
| |||
| |||
Αγαπητε τολη δοκιμασα αυτο που εστειλες και δουλευει με μια αλλαγη (εβαλα πιστωση - χρεωση αντι χρεωση - πιστωση που το ειχες) και δειχνει σωστα μονο εαν στο ερωτημα κανω ταξινομιση με το ΑΑΚΙΝΗΣΗΣ ενω εγω το εχω με την ημερομηνια. υπαρχει καμια καλη ιδεα ? =DSum("0+[ΠΙΣΤΩΣΗ]-[ΧΡΕΩΣΗ]";"ΚΙΝΗΣΕΙΣΠΕΛΑΤΩΝ";"[ΑΑΚΙΝΗΣΗΣ]<=[FORMS]![ΠΕΛΑΤΕΣ-ΕΜΦΑΝΙΣΗ ΚΑΡΤΕΛΑΣ ΠΕΛΑΤΗ ΔΕΥΤΕΡΕΥΟΥΣΑ]![ΑΑΚΙΝΗΣΗΣ]") (ΒΔ θελει σοβαρη διορθωση και πεταμα και οχι μονο στην ονοματολογια οπως λες αλλα ξεκινησε λαθος και συνεχιζει ετσι) Νικο αυτο που προτεινες δεν μπορω να πω οτι το καταλαβα (υπαρχει σχετικη ασχετοσινη). Γιωργο και η προταση σωστη (λιγο μπερδεμα μονο) Τελευταία επεξεργασία από το χρήστη pdhmos : 02-10-10 στις 15:22. |
#14
| |||
| |||
Τόλη ευχαριστώ για τη διευκρίνιση.
|
#15
| |||
| |||
Καλησπέρα στην παρέα Δήμο το αρχείο που ανέβασες είναι σε έκδοση που δεν μπορώ να ανοίξω. Επειδή θέλεις να χρησιμοποιήσεις τη λύση του Τόλη και υπάρχει και το πρόβλημα των ονομάτων και επειδή δεν τον βλέπω και συνδεδεμένο, προτείνω να κάνεις τα εξής: 1. Να αλλάξεις τον τύπο του Τόλη από το δεύτερο ερωτηματικό και μετά με την έκφραση: “[D]<[F]![D] OR ([D]=[F]![D] AND [I]<=[F]![I])”) Στην έκφραση θα αντικαταστήσεις τα σύμβολα που χρησιμοποίησα ως εξής: D με το όνομα που έδωσες στην ημερομηνία. F με το FORMS]![ΠΕΛΑΤΕΣ-ΕΜΦΑΝΙΣΗ ΚΑΡΤΕΛΑΣ ΠΕΛΑΤΗ ΔΕΥΤΕΡΕΥΟΥΣΑ I με το ΑΑΚΙΝΗΣΗΣ. 2. Στο ερώτημα που έχεις, η ταξινόμηση πρώτα θα γίνεται με την ημερομηνία και μετά με το ΑΑΚΙΝΗΣΗΣ. Σου βρήκα δουλειά για το Σαββατοκύριακο Καλή τύχη Φιλικά/Γιώργος |
#16
| |||
| |||
Καλημέρα στην παρέα Η βάση δεδομένων που επισυνάπτεται αποτελεί μια αναβάθμιση της προηγούμενης. Περιλαμβάνει τρεις φόρμες: 1. Στη φόρμα «frmExports» τα μερικά αθροίσματα εμφανίζονται με τη βοήθεια ενός υπολογιζόμενου πεδίου στο ερώτημα που δεσμεύεται. 2. Στη φόρμα «frmExportsDsum» χρησιμοποιείται ένα αδέσμευτο πλαίσιο κειμένου και η συνάρτηση DSUM . Είναι η λύση που πρότεινε ο Τόλης. 3. Στη φόρμα «frmExportsRS» χρησιμοποιείται ένα αδέσμευτο πλαίσιο ελέγχου και η ακόλουθη συνάρτηση χρήστη: Κώδικας: Public Function fncSubTotal(ID As Long) As Double Dim sum As Double Dim rs As DAO.Recordset Set rs = Me.RecordsetClone If Me.Count > 0 Then sum = 0 rs.MoveFirst Do Until rs.EOF sum = sum + Nz(rs!ExportAmount, 0) If rs!ExportID = Me.ExportID Then Exit Do rs.MoveNext Loop fncSubTotal = sum End If End Function Σημειώνεται ότι για να εμφανιστούν σωστά τα μερικά αθροίσματα οι εγγραφές στη φόρμα πρέπει να είναι ταξινομημένες πρώτα κατά ημερομηνία και μετά κατά τον κωδικό της εξαγωγής. Φιλικά/Γιώργος Τελευταία επεξεργασία από το χρήστη kapetang : 03-10-10 στις 09:08. Αιτία: συντακτική διόρθωση |
#17
| ||||
| ||||
Γιώργο μάλλον περνάς 'κρίση' δημιουργικότητας, έμπνευσης , εργασιομανίας και όλα τα συναφή. Σε ...βγάζω το καπέλο! Τιμή μου που σε γνώρισα / Νίκος Δ |
#18
| |||
| |||
Γιωργο καλημερα πρωινο σε ειδα( 7 και κατι ψιλα). Δοκιμασα την την αλλαγη που μου ειπες και συνεχιζει να δειχνει την ταξινομιση κατα ημερομηνια αλλα τα αποτελεσματα κατα ΑΑΚΙΝΗΣΗΣ. Θα δοκιμασω και τον παρακατω . και ερχομαι Public Function fncSubTotal(ID As Long) As Double Dim sum As Double Dim rs As DAO.Recordset Set rs = Me.RecordsetClone If Me.Count > 0 Then sum = 0 rs.MoveFirst Do Until rs.EOF sum = sum + Nz(rs!ExportAmount, 0) If rs!ExportID = Me.ExportID Then Exit Do rs.MoveNext Loop fncSubTotal = sum End If End Function φιλικα δημος (λαρισας) καλη κυριακη σε ολους |
#19
| |||
| |||
Νικο μαζυ τα γραφαμε 8+18 πμ δοκιμασα και τις αλλες εκδοχες και κατεληξα στου τασου. Ενα μεγαλο ΕΥΧΑΡΙΣΤΩ σε ολους. θα χαρω να βοηθησω και εγω σε κατι. το αντικειμενο μου ειναι επισκευη ηλεκτρονικων συσκευων pdhmos@otenet.gr καλη κυριακη Τελευταία επεξεργασία από το χρήστη pdhmos : 03-10-10 στις 10:44. |
#20
| |||
| |||
Φίλε Νίκο δεν πας πίσω. Σ’ ευχαριστώ
|
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] ΠΡΟΟΔΕΥΤΙΚΗ ΚΙΝΗΣΗ ΛΟΓΑΡΙΑΣΜΟΥ | billkar | Access - Ερωτήσεις / Απαντήσεις | 3 | 07-10-14 11:13 |
Κίνηση πελατών | nafnaki | Access - Ερωτήσεις / Απαντήσεις | 4 | 27-06-12 21:07 |
Ορθότητα λογαριασμού ΔΕΗ | chrisofos | Access - Ερωτήσεις / Απαντήσεις | 4 | 19-03-12 19:05 |
Η ώρα είναι 22:22.