Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Άλλα έχω στην προεπισκόπιση και άλλα στην εκτύπωση!!!
Καλημέρα σε όλους!!! Πριν από αρκετό καιρό είχα ζητήσει βοήθεια εδώ στο φόρουμ και μου δόθηκε. (εδώ η δημοσίευση μου και η λύση) Την λύση που μου δόθηκε την χρησιμοποίησα και δούλεψε σωστά (τουλάχιστον έτσι νόμιζα....) Η δουλειά είχε άλλες προτεραιότητες ενδιάμεσα και δεν το συνέχισα. Χτες που το έπιασα πάλι και έκανα εκτύπωση, είδα πως τα αποτελέσματα των εκτυπώσεων είναι εντελώς διαφορετικά από αυτά της προεπισκόπισης!!! Λέγοντας διαφορετικά, εννοώ τους υπολογισμούς που κάνει! Ενώ όλα εμφανίζονται σωστά υπολογισμένα στην προεπισκόπιση (προσθέσεις-αφαιρέσεις-πολλαπλασιασμοί...) στην κανονική εκτύπωση είναι εντελώς λάθος!!! Έκανα εκτύπωση και σε κανονική εκτύπωση (σε χαρτί) και σε pdf και βγαίνει το ίδιο πράγμα!!! Δοκίμασα και σε άλλους δυο υπολογιστές και το ίδιο!!!! Δεν το έχω ξανασυναντήσει ποτέ, δεν το έχω ξαναακούσει ποτέ!!! Είναι αυτό δυνατόν; Τελευταία επεξεργασία από το χρήστη prokopino : 15-07-10 στις 10:33. |
#2
| ||||
| ||||
Καλημέρα Προκόπη, Έλεγξε τις μορφοποιήσεις στα υπολογισμένα πεδία της έκθεσης καθώς και τη μεταβλητή subTot στον κώδικα: Dim subTot As Currency που ίσως χρειαστεί να την μετατρέψεις σε Double δηλαδή: Dim subTot As Double Αν δεν βελτιωθεί η κατάσταση θα πρέπει να μας δώσεις περισσότερες πληροφορίες σε ότι έχει σχέση τη μορφοποίηση των ποσών που υπολογίζεις ή να μας επισυνάψεις ένα αρχείο για να μπορέσουμε να εντοπίσουμε το πρόβλημα από κοινού. Φιλικά Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |
#3
| |||
| |||
Καλησπερα παιδια! Συγνωμη που επεμβενω αλλα και γω εχω περιπου το ιδιο προβλημα που ειναι το εξης: εχω την εκθεση σε μορφη προεπισκοπισης "PREVIEW" με τον εξης κωδικα: Private Sub Εντολή59_Click() DoCmd.OpenReport "PREVIEW", acViewPreview, , "[afm_for]='" & pvafm & "' " & " and [etos_apod]='" & pvetos & "'" End Sub και στη συνεχεια πατω το κουμπι εκτυπωσης για να εκτυπωθουν οι συγκεκριμενες αποδειξεις του "PREVIEW" με τον εξης κωδικα : Private Sub print_Click() On Error GoTo Err_print_Click Dim stDocName As String stDocName = "PREVIEW" DoCmd.OpenReport stDocName, acNormal Exit_print_Click: Exit Sub Err_print_Click: MsgBox Err.Description Resume Exit_print_Click End Sub το προβλημα ειναι οτι δεν εκτυπωνει την προεπισκοπιση και εκτυπωνει αλλες αποδειξεις... |
#4
| |||
| |||
Προκόπη, καλησπέρα Μερικές φορές η ακατανόητη συμπεριφορά μιας εφαρμογής, μπορεί να οφείλεται στην εκτέλεση μη αναμενόμενου κώδικα, λόγω ενεργοποίησης κάποιων συμβάντων, που επίσης δεν περιμένουμε. Ίσως αν τον κώδικα του συμβάντος Detail_print τον προσθέσεις στο συμβάν Detail_Format και διαγράψεις το συμβάν Detail_print, να λύσεις το πρόβλημά σου. Περιμένω νέα σου. Φιλικά/Γιώργος |
#5
| |||
| |||
Προκόπη το κοίταξα καλύτερα. Η αιτία είναι αυτή που αναφέρω στο προηγούμενο μήνυμα, αλλά όχι και η θεραπεία. Άφησε τον κώδικα, όπως τον έχεις και πρόσθεσε τη γραμμή κώδικα subTotal=0 στο συμβάν - διαδικασία Private sub Report_page της έκθεσης. Φιλικά/Γιώργος |
#6
| |||
| |||
Καλημερα...το ελυσα το προβλημα μου δεν ειχα βαλει κριτηρια οταν ανοιγα την εκθεση... DoCmd.OpenReport stDocName, acNormal, , "[afm_for]='" & pvafm & "' " & " and [etos_apod]='" & pvetos & "'" |
#7
| |||
| |||
Καλημέρα σε όλους. Συγνώμη που δεν σας απάντησα χτες αλλά η δουλειά είναι πάντα περίεργη και δεν μας αφήνει τις προτεραιότητες και το χ΄ρονο που θέλουμε... Έχω ανεβάσει εδώ ένα την έκθεση όπως η ρουφιάνα μου βγάζει το πρόβλημα. Ναι, υπάρχει κώδικας "on print" αλλά δεν μπορώ να εντοπίσω ακριβώς το σημείο στο οποίο τα χαλάει όλα. Αυτό που έχω εντοπίσει είναι πως το τελικό αποτέλεσμα της εκτύπωσης είναι το ΔΙΠΛΑΣΙΟ από το σωστό της προεπισκόπισης. Με βάση αυτό, δίνει στην κεφαλίδα της 1ης σελίδας το τελικό του υποσέλιδου της έκθεσης και αθροίζει ξανά!!! Λάθος μου, Ναι, αλλά που;;; Σας ευχαριστώ εκ των προτέρω όλους!!! |
#8
| |||
| |||
Προκόπη, Καλημέρα Δεν μπόρεσα να ανοίξω την εφαρμογή που ανέβασες, γιατί έχω access 2003. Από αυτά που γράφεις, είμαι σχεδόν σίγουρος, ότι το πρόβλημα θα λυθεί, αν στην αρχή της διαδικασίας συμβάντος Private Sub PageHeader_Print προσθέσεις τον κώδικα If Me.Page = 1 Then Me.PreviousTotal = 0 End If Φιλικά/Γιώργος |
#9
| |||
| |||
Γιώργο καλημέρα. Το δοκίμασα, το έκανα, αλλά έχω περίεργα αποτελέσματα.... δες το και εσύ αν μπορείς... (έκανα ένα αντίγραφο σε access 2003) |
#10
| |||
| |||
Καλησπέρα Προκόπη δεν μπόρεσα να την ανοίξω. Μου βγάζει λάθη επειδή κάποια πεδία που συμμετέχουν σε υπολογισμούς είναι null. Συμφωνώ για τον πετυχημένο χαρακτηρισμό της έκθεσης "ρουφιάνα!". Από τη σχεδίαση που είδα και τον κώδικα, πιστεύω ότι ο κώδικας για τα διάφορα συμβάντα δε συντονίζεται. Προτείνω: 1. Ο κώδικας για το συμβάν Report_Load να σβήσει και να βάλλεις τους κατάλληλους τύπους στην ιδιότητα "πρέλευση στοιχείο ελέγχου", στην προβολή σχεδίασης (πχ = DLookup("[kratisisA]" ; "tblEktosEdrasApozimioseisKratiseis") Δε χρειάζεται να προσθέσεις το chr(128) αφού μπορείς να καθορίσεις ότι το πλαίσιο κειμένου είναι νομισματική μονάδα. 2. Το ίδιο να γίνει και με τον κώδικα του συμβάντος Λεπτομέρεια_Format (πχ =Round([Kratiseis1]+[Kratiseis2];2). Στους τύπους αντί για κόμμα βάζουμε ερωτηματικό. Δηλαδή στο κώδικα της έκθεσης θα υπάρχουν μόνο οι εντολές που αναφέρονται στον υπολογισμό των αθροισμάτων στην αρχή και στο τέλος της σελίδας. Συνεπώς ο κώδικας θα είναι πολύ πιο απλός οπότε εύκολότερα μπορεί να εντοπιστούν τα τυχόν λάθη. Γιώργος |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Συναρτήσεις] επεκταση συναρτησεις σε αλλα κελια | achkap | Excel - Ερωτήσεις / Απαντήσεις | 4 | 23-05-14 17:11 |
[Συναρτήσεις] Διάσπαση κειμένου σε αλλα κελιά | Ρούλα | Excel - Ερωτήσεις / Απαντήσεις | 6 | 07-04-13 19:52 |
[Συναρτήσεις] Διάσπαση περιεχομένου κελιού σε άλλα. | ΤΖΙΜΗΣ | Excel - Ερωτήσεις / Απαντήσεις | 6 | 27-06-11 16:56 |
[Γενικά] Δυναμική αλλά όχι υποχρεωτική επικύρωση. | gr8styl | Excel - Tips & Tricks | 0 | 11-12-10 01:56 |
Πεδίο yes/no αλλά μοναδικό | mistirios | Access - Ερωτήσεις / Απαντήσεις | 7 | 14-08-10 08:41 |
Η ώρα είναι 21:23.