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

[Dimitris Ch]

Ναι παιδια εχετε δικαιο.
Μαρω συγνωμη ειχα λαθος
Ειχα την εντυπωση οτι οπως στα αθροισματα ομαδων λειτουργουσε και το αθροισμα σελιδας.
Τελικά ο Τασος εχει δικαιο. Χρειαζεται κωδικας.
Παρ ολα αυτα νομιζω οτι οι ρουτινες δουλευουν μονο σε προεπισκοπιση.....Στο ανοιγμα οχι.....
Εχετε καμια ιδεα...?....Αν και εκει δεν εχουμε σελιδοποιηση νομιζω

Φιλικα Δημητρης

[kapetang]

καλό βράδυ

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

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

[gnikol]

Καλημέρα σε όλους!!!!!!!!
Σχετικά με το κώδικα του Τάσο θα ήθελα να επισημάνω κάτι.
Στο συμβάν detail section:Retreat
Αυτο ενεργοποιείται οταν μορφοποιείται η έκθεση και είναι πιθανόν να τρέξει ο κώδικας του print
2 φορές οποτε θα βγει λάθος αποτέλεσμα. Καλό είναι να προσθέσουμε κάποιο κώδικα εκεί όπως π.χ.
PageTotal = PageTotal + (Nz(Me.[Poso])*-1)
Το συμβάν αυτο πυροδοτείται όταν στη μορφοποίηση του report δεν χωρούν οι εγγραφές και πάνε σε επόμενη σελίδα.

[kapetang]

Καλημέρα

Γιώργο (συνονόματε), βλέπω ότι το κατέχεις το «άθλημα».
Μήπως θα μπορούσες να επισυνάψεις μία ΒΔ που θα προσομοιώνει το πρόβλημα, ώστε να γίνει πλήρως κατανοητό;
Αν στο συμβάν Retreat μηδενίζαμε το άθροισμα, θα λύνονταν το πρόβλημα;.

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

[gnikol]

Δεν έχω δηστυχώς κάποια βάση να δείτε.
Πριν χρόνια ειχα χρησιμοποιήσει κάτι τέτοια σε ένα πρόγραμμα μισθοδοσίας του
δημοσίου που είχε πολλές σελίδες.
Για να δειτε πως λειτουργεί σε μια πολυσέλιδη φόρμα στα συμβάντα Print + Retreat
γράψε κάνε debug.print "Print" και debug.print "Retreat" για να δειτε τη σειρά που αυτά
πυροδοτούνται. Γενικά χρειάζεται προσοχή οταν δίνουμε τιμή σε μια μεταβλητή με τέτοιο
τρόπο γιατί οταν έχουμε να κάνουμε με χρήμα ισως έχουμε πρόβλημα.Επίσης θα πρέπει να λάβουμε υπόψη μας:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount =1 then
vba code......
end if
Κι εδώ με την ίδια λογική, αν τρέξει 2 φορές τοτε γίνεται PrintCount >1.
Δινουμε στο retreat τιμή -1 για να αφαιρέσουμε το επιπλέον άθροισμα απο τη μεταβλητή.
Αν δώσουμε τιμή 0 στη μεταβλητή τοτε θα χάσουμε ολο τον προηγούμενο υπολογισμό.
Για να καταλάβετε πως γίνεται αυτο ας υποθέσουμε οτι εχουμε μια έκθεση με 26 εγγραφές και η σελίδα μας βάζει 25. Οταν τρέξει το report το συμβάν print θα γίνει σε κάθε μια εγγραφή.
Είναι πιθανόν, το έχω δει αυτο, να βάλει και τις 26 εγγραφές στη πρώτη σελίδα και μετά να δει οτι δεν χωρούν και να κάνει αυτο που λέμε οπισθοχώρηση κατά μια και να τη βάλει στην επομενη
σελίδα. Σε αυτη τη περίπτωση τη τελευταία εγγραφή θα τη περάσει 2 φορές και θα τρέξει το συμβάν print επίσης 2 φορές οποτε θα έχουμε λάθος άθροισμα. Επισης πρέπει να ληφθεί υπόψη
οτι οταν ανοίγει η έκθεση τρέχουν ολα τα συμβάντα και οταν εκτυπώνεται επίσης τρέχουν κάποια.
Καλό θα είναι να βάλετε ένα debug.print σε κάθε section για να δείτε τη συμπεριφορά του
και μετά να αρχίσετε τους υπολογισμούς. Σε κάθε περίπτωση χρειάζεται μεγάλη προσοχή κατά τη γνώμη μου.
Συγνώμη για το μεγάλο κείμενο, ελπίζω να σας διαφώτισα.

[kapetang]

Καλημέρα
Γιώργο, σ’ ευχαριστώ πολύ για την αναλυτική ενημέρωση.
Φιλικά/Γιώργος

[ΠΑΝΟΣ]

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

[ΠΑΝΟΣ]

Καλημέρα , όλα καλά με τον κώδικα αλλά συμβαίνει το εξής πρόβλημα ,
στην πρόσθεση συνόλου ανα σελίδα μου προσθέτει και μία εγγραφή παραπάνω η οποία βρίσκεται στην δεύτερη σελίδα ενώ το μερικό σύνολο της δεύτερη σελίδας είναι σωστό.
Μάλλον έχει να κάνει με αυτό που αναφέρει ο "gnikol" Γιώργος ποιο πάνω. Δεν κατάλαβα όμως πως θα το εφαρμόσω ......

[kapetang]

Καλησπέρα

Πάνο, πολύ πιθανόν να έπεσες στην περίπτωση που επισήμανε ο Γιώργος (gnikol).
Στην έκθεση της ΒΔ, που επισυνάπτω ,έχω προσθέσει και τον κώδικα που πρότεινε ο gnikol.
Πιστεύω ότι εύκολα θα τον προσαρμόσεις στην περίπτωσή σου.
Αν αντιμετωπίσεις δυσκολίες θα πρέπει να ανεβάσεις τη ΒΔ με την προβληματική έκθεση.

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

[ΠΑΝΟΣ]

Δεν μπορώ να καταλάβω τι φταίει .
Στην συγκεκριμένη βάση που θέλω δεν δουλεύει , σε άλλες το δοκίμασα μιά χαρά , δεν μπορώ να ανεβάσω και τη βάση είναι 40 MB .
Στη δική μου τη βάση παίρνει στοιχεία από ερώτημα με στοιχεία από πολλούς πίνακες.
Εξακολουθεί και μου προσθέτει 1 εγγραφή από την επόμενη σελίδα