[kapetang]

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

Η επισυναπτόμενη ΒΔ περιέχει δύο εκθέσεις:

1) Στην tblPliromes έχω προσθέσει στην έκθεση που δημιούργησε ο Χρήστος ένα πλαίσιο κειμένου με όνομα txtCurrSum για την εμφάνιση του τρέχοντος αθροίσματος των πληρωμών.

Στο πλαίσιο κειμένου η ιδιότητες Control Source ( προέλευση στοιχείου ελέγχου) και Running Sum (τρέχον άθροισμα) έχουν τεθεί σε : =[ΠΛΗΡΩΜΗ] και Over All, αντίστοιχα.

2) Η rptQuery παρουσιάζει έναν άλλο τρόπο εμφάνισης στην έκθεση N (14) γραμμών ανά σελίδα.

Η έκθεση βασίζεται στο ερώτημα Query1 στο οποίο έχει προστεθεί:

• Το υπολογιζόμενο πεδίο Counter, το οποίο με τη βοήθεια της συνάρτησης χρήστη CounterRows αριθμεί τις εγγραφές.
• Το υπολογιζόμενο πεδίο Group14, το οποίο ομαδοποιεί τις εγγραφές ανά 14 (για τις πρώτες 14 έχει τιμή 0, για τις επόμενες 14 τιμή 1, κλπ).

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

Επειδή στον κώδικα της συνάρτησης CounterRows χρησιμοποιείται το αντικείμενο Scripting.Dictionary θα πρέπει να ορίσουμε μία αναφορά ( στο παράθυρο της VBA, Tools>References…) στη βιβλιοθήκη Microsoft Scripting Runtime.

Φιλικά/Γιώργος