[ Εκθέσεις ] Επιλογή στοιχείων προς εμφάνιση σε έκθεση

[caudillo]

Καλημέρα σε όλους και καλό καλοκαίρι,
θα παρακαλούσα όποιον έχει την διάθεση να με βοηθήσει με το εξής θέμα:
Έχω φτιάξει μια ΒΔ όπου στην κύρια φόρμα δίνω κάποια στοιχεία και με βάση αυτά γίνονται κάποιοι υπολογισμοί στην δευτερεύουσα φόρμα. Οι υπολογισμοί αυτοί γίνονται σε μηνιαία βάση.
Στην δευτερεύουσα φόρμα έχω φτιάξει ένα κουμπί για να ανοίγω μια έκθεση για τους υπολογισμούς αυτούς.
Εκείνο που θέλω είναι να μπορώ να επιλέγω ποιός μήνας θα εμφανίζεται στην έκθεση.

[nasos23]

Καλησπέρα σε όλους.
Φίλε Κώστα δες μια προσέγγιση του ζητούμενου.

[caudillo]

Καλησπέρα Νάσο,
μόλις κατέβασα και δοκίμασα την πρότασή σου. Απ' ότι βλέπω δουλεύει ακριβώς όπως ήθελα. Μια ερώτηση μόνο: για να την προσαρμόσω στην δική μου ΒΔ αντγράφω κάποιον κώδικα από το κουμπί "Άνοιγμα έκθεσης";
Σ' ευχαριστώ πολύ για την βοήθειά σου.

[caudillo]

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

[nasos23]

Καλησπέρα Κώστα.

Εκτός του κώδικα του κουμπιού.

Δες στην έκθεση.
Σε προβολή σχεδίασης προσθέτουμε ένα επιπλέον κρυφό πεδίο
στην περίπτωσή μας το πεδίο ΗΜ_ ΕΚΔΟΣΗΣ_ΤΙΜΟΛΟΓΙΟΥ το διαμορφώνουμε σε έτος/μήνας:
Format([ΗΜ_ ΕΚΔΟΣΗΣ_ΤΙΜΟΛΟΓΙΟΥ];"αααα/μμ")
με κριτήριο [ΔΩΣΕ ΜΗΝΑ ΣΕ ΜΟΡΦΗ:ΕΕΕΕ/ΜΜ] το οποίο φιλτράρει τις εγγραφές
του επιλεγμένου μήνα/έτους.

Κάνε τις κατάλληλες προσαρμογές.

[nasos23]

1. Το πεδίο ΑΡ ΜΗΤΡΩΟΥ έχει αριθμητική τιμή
"[ΑΡ ΜΗΤΡΩΟΥ] = " & Me.[ΑΡ ΜΗΤΡΩΟΥ] & ""
για μορφή κειμένου έχουμε
"[ΑΡ ΜΗΤΡΩΟΥ] = '" & Me.[ΑΡ ΜΗΤΡΩΟΥ] & "'"

2.Αποφεύγουμε τα κενά στην ονομασία των πεδίων. Αν πρέπει να υπάρχει κενό
το κλείνουμε σε αγκύλες[ ]

Στον κώδικα κάνε διόρθωση σε:

DoCmd.OpenReport strReportName, acViewPreview, , "[ΑΡ ΜΗΤΡΩΟΥ] = " & Me.[ΑΡ ΜΗΤΡΩΟΥ] & ""

Για άνοιγμα έκθεσης ανά υπάλληλο μήνα και έτος

Dim strReportName As String
strReportName = "ΜΗΝΙΑΙΑ ΜΙΣΘΟΔΟΣΙΑ"

DoCmd.OpenReport strReportName, acViewPreview, , "[ΑΡ ΜΗΤΡΩΟΥ] = " & Me.[ΑΡ ΜΗΤΡΩΟΥ] & _
"and [ΕΤΟΣ ΠΛΗΡΩΜΗΣ]=" & Me.[ΕΤΟΣ ΠΛΗΡΩΜΗΣ] & _
"and [ΜΗΝΑΣ ΠΛΗΡΩΜΗΣ]=" & Me.[ΜΗΝΑΣ ΠΛΗΡΩΜΗΣ] & ""

[caudillo]

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

[nasos23]

Ευχαριστώ. Να' σαι καλά