[ Εκθέσεις ] Φιλτραρισμένο ερώτημα σε έκθεση

[wint3r]

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

Πάνος

[kapetang]

Καλησπέρα και πάλι

Πάνο η λύση που σου μένει είναι του Τάσου.
Πίστευα ότι το φίλτρο που αποθηκεύεται στο ερώτημα κληρονομείται αυτόματα από την έκθεση (έχω την αίσθηση ότι κάπου το διάβασα) αλλά κάνοντας κάποιες δοκιμές μάλλον δεν συμβαίνει.
Μία λύση της πυρκαγιάς και για να πειραματιστείς είναι να αντιγράψεις το φίλτρο από τις ιδιότητες του ερωτήματος και να το επικολλήσεις στην ιδιότητα φίλτρο της έκθεσης. Φυσικά αυτό για να λειτουργήσει η ιδιότητα φιλτράρισμα κατά της έκθεσης πρέπει να είναι ΝΑΙ.

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

[kapetang]

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

[wint3r]

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

Πάνος

[Tasos]

Καλημέρα σε όλους!
Αγαπητε Πάνο, η Access μας δινει τη δυνατότητα να ανοίγουμε αντικείμενα που περιέχουν δεδομένα χρησιμοποιώντας κριτήρια.
Αυτό κάνει ο κώδικας του προηγούμενου μηνύματος μου.
Η εξήγηση βρίσκεται στην παρακάτω ανάλυση:

Private Sub cmdOpenReport_Click()

    On Error GoTo Err_cmdOpenReport_Click
    '   Αν υπάρξει λάθος θα μεταπηδήσει στη ρουτίνα Err_cmdOpenReport_Click παρακάτω.

    Dim stDocName As String, strCriteria As String
    '   Δήλωση μεταβλητών.
    '   strCriteria= που θα χρησιμοποιηθούν με το άνοιγμα της έκθεσης

    If Me.FilterOn Then strCriteria = Me.Filter
    '   Αν έχει εφαρμοστεί φίλτρο στη φόρμα, τότε ορίζεται στη μεταβλητή strCriteria
    '   ορίζεται ωςτιμή το φίλτρο που έχεις επιλέξει πχ.:  " CustomerName='Πάνος' "

    stDocName = "Qry1"
    '   το ονομα του αντικειμένου που θα ανοίξει.
    '   Τις μεταβλητες δεν είναι απαραίτητο να υπάρχουν όταν προκειται να χρησιμοποιηθούν
    '   μια ή δύο μόνο φορές στον κώδικα, εκτός και αν διεθκολύνουν τον ίδιο τον
    '   προγραμματιστή στην ανάγνωση και κατανόηση του κώδικα.

    DoCmd.OpenReport stDocName, acViewReport, , strCriteria

    '   Πως ακριβώς λειτουργεί η εντολή DoCmd.OpenReport.. εξηγείται παρακάτω

Exit_cmdOpenReport_Click:

    Exit Sub
Err_cmdOpenReport_Click:

    MsgBox Err.Description

    Resume Exit_cmdOpenReport_Click

End Sub

Από τη Microsoft:

The OpenReport method carries out the OpenReport action in Visual Basic.
Syntax: expression.OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)
expression A variable that represents a DoCmd object.

Parameters
Name Required/Optional Data Type Description

ReportName Required Variant
A string expression (string expression: An expression that evaluates to a sequence of contiguous characters.
Elements of the expression can be: functions that return a string or a string Variant (VarType 8);
a string literal, constant, variable, or Variant.) that's the valid name of a report in the current database.
If you execute Visual Basic code containing the OpenReport method in a library database
(library database: A collection of procedures and database objects that you can call from any application.
In order to use the items in the library, you must first establish a reference from the current database to the library database.),
Microsoft Access looks for the report with this name, first in the library database, then in the current database.

View Optional AcView A AcView constant that specifies the view in which the report will open.
The default value is acViewNormal. FilterName Optional Variant A string expression that's the valid name
of a query (query: A question about the data stored in your tables, or a request to perform an action on the data.
A query can bring together data from multiple tables to serve as the source of data for a form or report.) in the current database.

WhereCondition Optional Variant A string expression that's a valid SQL WHERE clause (WHERE clause:
The part of an SQL statement that specifies which records to retrieve.) without the word WHERE.

WindowMode Optional AcWindowMode A AcWindowMode constant that specifies the mode in which the form opens.
The default valus is acWindowNormal.

OpenArgs Optional Variant Sets the OpenArgs property.

Remarks

You can use the OpenReport method to open a report in Design view (Design view:
A view that shows the design of these database objects: tables, queries, forms, reports, and macros.
In Design view, you can create new database objects and modify the design of existing objects.)
or Print Preview (print preview: A view of a document as it will appear when you print it.),
or to print the report immediately. You can also restrict the records
(record: A collection of data about a person, a place, an event, or some other item.
Records are the logical equivalents of rows in a table.) that are printed in the report.
The maximum length of the WhereCondition argument is 32,768 characters (unlike the Where Condition action argument in the Macro window, whose maximum length is 256 characters).

Example

The following example prints Sales Report while using the existing query Report Filter.
Visual Basic for Applications
DoCmd.OpenReport "Sales Report", acViewNormal, "Report Filter"

Καλή συνέχεια!

Τάσος

[wint3r]

Ανέβασα το αρχείο για να μπορέσετε να με βοηθήσετε. Ευχαριστώ.
Πάνος

[kapetang]

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

Πάνο στη βάση δεδομένων που επισυνάπτω προσπάθησα να δώσω μια λύση που μάλλον σε καλύπτει.
Βασικά αποτελείται:
1. Από μία φόρμα (frmShowReports) που διευκολύνει τη διαμόρφωση των κριτηρίων και το άνοιγμα της αντίστοιχης έκθεσης.
2. Ένα παραμετρικό ερώτημα (qryGeniko)
3. Μία έκθεση (rptGeniko)
Τα ερωτήματα και τις εκθέσεις που δεν ήταν αναγκαία τα διέγραψα.
Αν δεν ανέβαζες τη βάση σου ακόμα θα προσπαθούσαμε να μαντέψουμε τι θέλεις.
Με την υλοποίηση που πρότεινε ο Τάσος, πριν ανεβάσεις τη βάση σου, δεν ασχολήθηκα. Ίσως ασχοληθεί κάποιο άλλο μέλος.
Η βάση έγινε κάπως βιαστικά γι’ αυτό κάνε δοκιμές, μήπως και μου διέφυγε κάποια περίπτωση.

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

[kapetang]

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

Στη βάση δεδομένων που επισυνάπτεται στο προηγούμενο μήνυμά μου διαπίστωσα:
1. Ενώ στη φόρμα υπήρχε πρόβλεψη για τα κριτήρια του πεδίου «Σκοπός» δεν υπήρχε υλοποίηση στο ερώτημα.
2. Στο σύνθετο πλαίσιο για το πεδίο «Όροφος» περιλαμβάνονταν και μία κενή επιλογή.
3. Στα πεδία που χρησιμοποιούνται για κριτήρια θα πρέπει να αποφεύγονται οι τιμές null, γιατί δημιουργούν προβλήματα. Για παράδειγμα αν θέλουμε μία τιμή να είναι από 100 μέχρι 200 με μία εγγραφή που έχει τιμή null τι θα γίνεται; Θα επιλέγεται ή όχι; Έτσι στη βάση δεν υπήρχε πρόβλεψη για την αντιμετώπιση των τιμών null.
Στη βάση που επισυνάπτω διορθώνονται οι παραπάνω αδυναμίες (1 και 2). Επίσης γίνεται και κάποιος χειρισμός των τιμών null.

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

[wint3r]

Γιώργο & Τάσο και ολη την παρέα, σας ευχαριστώ πάρα πολύ για τον χρόνο σας. Γιώργο σε ευχαριστώ πολύ για τη βοήθεια. Είναι ακριβώς αυτό που ήθελα, αλλά έχω πρόβλημα με τις τιμές στον "τομέα". Μου έχει μόνο ΑΝΑΤΟΛΙΚΗ ΘΕΣ/ΝΙΚΗ και τίποτα άλλο με αποτέλεσμα να μην μπορεί η αναζήτηση να μου τα εμφανίσει όλα. Μπορείς να μου πείς να κάνω κάτι?
Ευχαριστώ και πάλι όλους σας.
Φιλικά/Πάνος

[kapetang]

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

Πάνο τα σύνθετα πλαίσια στη φόρμα επιλογής των κριτηρίων παίρνουν τις τιμές τους από το βασικό σου πίνακα.
Καθώς θα προσθέτεις εγγραφές στον πίνακα θα ενημερώνονται και τα πλαίσια.
Ειδικά για το πεδίο «Τομέας» ο πίνακας που ανέβασες έχει μόνο μία τιμή. Η δεύτερη εγγραφή έχει null (κενή) τιμή, γι’ αυτό έχεις και μία επιλογή.
Κανονικά στο δεύτερο αρχείο που ανέβασα, αν επιλέξεις «Όλα» θα εμφανιστούν και οι δύο εγγραφές.
Για να μη έχεις προβλήματα στα πεδία που χρησιμοποιούνται στα κριτήρια δεν πρέπει να υπάρχουν τιμές null.
Καλό είναι αυτό να το καθορίσεις στις ιδιότητες των πεδίων στη σχεδίαση του πίνακα.

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