[ Εκθέσεις ] Πέρασμα φίλτρων από φόρμα σε έκθεση

[pixelman]

Γεια στους φίλους. Έχω φτιάξει μια μικρή βάση και την οποία σας παραθέτω με συνημμένο αρχείο (test.zip). Έχω 2 απορίες, ευχαριστώ εκ των προτέρων.
1)Η φόρμα πάνω στην οποία είναι βασισμένη η μικρή εφαρμογή είναι η gen. Έχω φτιάξει μια έκθεση η οποία βασίζεται σε ερώτημα . Το ερώτημα έχει ως κριτήριο

[Φόρμες]![gen]![Αναγνωριστικό]

Έτσι, κάθε φορά που πατάω το κουμπί, για την εγγραφή που θέλω, έχω και την αντίστοιχη έκθεση. Είναι σωστό αυτό σα λογική; Μπορούμε να τη δεχτούμε επειδή απλά λειτουργεί; Υπάρχει άλλος τρόπος;
2)Οι συνολικές εγγραφές που έχω είναι 6. Αν φιλτράρω ανα Κατηγορία και Τοποθεσία και εμφανίσω στη φόρμα μου 2 εγγραφές για παράδειγμα μπορώ τα φίλτρα που έχω βάλει να τα «περνάω» και στην αντίστοιχη έκθεση; Δηλαδή να φτιάξω ένα κουμπί που θα μου τυπώνει την έκθεση ek_gen αλλά όλες τις εγγραφές που βλέπω εκείνη τη στιγμή στη φόρμα μου.

[kapetang]

Καλησπέρα

Ευθύμη, στην επισυναπτόμενη ΒΔ μπορείς να δεις δύο τρόπους εμφάνισης στην έκθεση των εγγραφών που εμφανίζει και η φόρμα.

Α. Για την υλοποίηση του 1ου τρόπου έχει προστεθεί στην αρχική ΒΔ:

1) Ο βοηθητικός πίνακας tblHLP, με ένα μόνο πεδίο τύπου «μεγάλος ακέραιος».

2) Το ερώτημα qryShowRecordsForm, στο οποίο βασίζεται η έκθεση.

Στο ερώτημα υπάρχει κατάλληλο κριτήριο για την εμφάνιση μόνο των εγγραφών που δείχνει η φόρμα.

3) Η έκθεση rptShowRecordsForm, η οποία στηρίζεται στο ερώτημα qryShowRecordsForm και εμφανίζει τις εγγραφές που παρουσιάζει και η φόρμα.

Με το πάτημα του κουμπιού «Εμφάνιση Έκθεσης» της φόρμας gen τρέχει ο παρακάτω κώδικας:

Private Sub cmdOpenReport_Click()
    Dim strSQL As String
    On Error GoTo Err_Trap
    strSQL = "INSERT INTO tblHLP (ID) VALUES("
    CurrentDb.Execute "DELETE * FROM tblHLP"
    With Me.RecordsetClone
        .MoveFirst
        Do While Not .EOF
            CurrentDb.Execute strSQL & !Αναγνωριστικό & ")"
            .MoveNext
        Loop
    End With
    
    DoCmd.OpenReport "rptShowRecordsForm", acViewPreview
    Exit Sub
Err_Trap:
    MsgBox "Error #" & Err.Number & vbCrLf & Err.Description

End Sub

Β. Ο δεύτερος τρόπος είναι πιο απλός.

Προϋποθέτει η προέλευση της έκθεσης να περιλαμβάνει τα πεδία της φόρμας στα οποία εφαρμόζεται το φίλτρο και επιπλέον τα πεδία αυτά να έχουν ίδια ονόματα.

Για την υλοποίηση του 2ου τρόπου έχει προστεθεί στην αρχική ΒΔ:

1) Ο πίνακας gen2, στον οποίο τα πεδία Topothesia και Kathhgoria,έχουν γίνει πεδία αναζήτησης .

2) Η φόρμα gen2 με προέλευση τον πίνακα gen2

3) Η έκθεση rptShowRecordsForm2, η οποία στηρίζεται στον πίνακα gen2 στον οποίο στηρίζεται και η φόρμα.

Με το πάτημα του κουμπιού «Έκθεση» της φόρμας gen2 τρέχει ο παρακάτω κώδικας:

Private Sub cmdPrint_Click()
    Dim strFilter As String

    If Me.FilterOn Then strFilter = Me.Filter

    DoCmd.OpenReport "rptShowRecordsForm2", acViewPreview, , strFilter

End Sub

Υπάρχουν πολλοί τρόπο για να φιλτράρουμε τις εγγραφές μιας έκθεσης.

Ο τρόπος που περιγράφεις στο πρώτο ερώτημά σου είναι από τους καλύτερους.

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

[pixelman]

Ευχαριστώ πάρα πολύ!