[ Εκθέσεις ] Εμφάνιση πλαισίων σε έκθεση

[gmax]

Καλημέρα σας. Έχω βρει πολλές λύσεις στο forum και ελπίζω σε μια ακόμη. Έχω μια έκθεση στην οποία τα δεδομένα που εμφανίζονται στη "λεπτομέρεια" τα έχω μέσα σε πλαίσια (κουτάκια). Σε κάθε σελίδα χωρούν 10 εγγραφές. Όταν υπάρχουν λιγότερες εγγραφές, το υπόλοιπο της λεπτομέρειας μένει κενό. Γίνεται στο κενό της λεπτομέρειας να εμφανίζονται τα πλαίσια κενά; Δηλαδή να εμφανίζονται 10 πλαίσια, ανεξαρτήτως του αριθμού εγγραφών. Ευχαριστώ για άλλη μια φορά.

[Tasos]

Καλησπέρα Γιώργο!

Δεν γνωρίζουμε αν στην έκθεση σου υπάρχουν ομαδοποιήσεις δεδομένων για να σου προτείνουμε κάτι.

Ένα παράδειγμα με δεδομένα 2 - 3 σελίδων θα μας διαφώτιζε.

Περιμένουμε νέα σου.

Φιλικά

Τάσος

[gmax]

Καλησπέρα. Ανεβάζω ένα δείγμα και αν δείτε η έκθεση είναι κατά το ήμισυ κενή. Έχω 5 εγγραφές ενώ χωράει 10. Θα ήθελα στον υπόλοιπο χώρο να μου βάζει "κουτάκια" κενά. Ευχαριστώ.

[kapetang]

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

Γιώργο, στη ΒΔ που επισυνάπτω, υπάρχουν δύο υλοποιήσεις του ζητούμενου.

1. Στην έκθεση «Φ/Α 1Χ ΚΟΡΑΣΙΔΩΝ» η υλοποίηση γίνεται σχεδιάζοντας, με κώδικα, ένα πλέγμα γραμμών στην έκθεση.
Το πλέγμα είναι προσαρμοσμένο στη θέση και τις διαστάσεις των πλαισίων κειμένου (πεδίων) στην έκθεση, οπότε αν γίνουν αλλαγές θα πρέπει να γίνει νέα προσαρμογή.

Private Sub Report_Page()
    Dim xo As Long, yo As Long, i As Long, x As Variant, a As Long
    x = Array(20, 595, 1423, 5125, 6818, 7700, 9005, 11550)
    yo = 5020: a = 710
    For i = 0 To 7
        Me.Line (x(i), yo)-(x(i), yo + 10 * a)
    Next
    For i = 0 To 10
        Me.Line (x(0), yo + i * a)-(x(7), yo + i * a)
    Next
End Sub

2. Στην έκθεση «Φ/Α 1Χ ΚΟΡΑΣΙΔΩΝ2», η λύση δόθηκε από τον Τάσο (διαχειριστή).
Στη ΒΔ έχει προστεθεί ο πίνακας «ReportTable», ο οποίος χρησιμοποιείται ως προέλευση των δεδομένων της.
Με κατάλληλο κώδικα ο πίνακας φορτώνεται με τα πραγματικά δεδομένα και με τα αναγκαία εικονικά ώστε σε κάθε σελίδα της έκθεσης να έχουμε 10 εγγραφές.

Private Sub Report_Load()
    Const LimitNumber = 10
    Dim i As Integer
    Dim RecCount As Integer
    Dim DBs As DAO.Database
    Set DBs = CurrentDb
    DBs.Execute "DELETE * From ReportTable"
    DBs.Execute "INSERT INTO ReportTable SELECT [ΠΛ 1Χ ΚΟΡΑΣΙΔΩΝ].* FROM [ΠΛ 1Χ ΚΟΡΑΣΙΔΩΝ]"
    RecCount = DCount("*", "ReportTable")
    RecCount = RecCount Mod LimitNumber
    For i = RecCount + 1 To LimitNumber
        DBs.Execute "INSERT INTO ReportTable ([Α/Α]) Values(999999999)"
    Next
End Sub

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

[gmax]

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

[Tasos]

Καλημέρα σε όλους!

Γιώργο, χαίρομαι που βοηθήθηκες!

Για όσους ενδιαφέρονται
Με αφορμή αυτό θέμα δημιουργήσαμε ένα σχετικό παράδειγμα στα χρήσιμα παραδείγματα της Access.

O Σύνδεσμος: http://www.ms-office.gr/forum/access....html#post8200

Στο παράδειγμα αυτό περιέχονται 2 Εκθέσεις.

Η μια (rptOrdersGrouped) χρησιμοποιεί ομαδοποιημένα δεδομένα
και η άλλη (rptProducts) απλά συμπληρώνει εγγραφές στην τελευταία σελίδα της έκθεσης.

Φιλικά

Τάσος