Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Εκθέσεις ] Φιλτραρισμένο ερώτημα σε έκθεση (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/758-filtrarismeno-erotima-se-ekthesi.html)

wint3r 30-09-10 14:08
Φιλτραρισμένο ερώτημα σε έκθεση
 
Καλημέρα σε όλους,
Είμαι καινούριος στο forum, αλλά από access (και γενικότερα ms-office) παω καλά. Η ερωτησή μου είναι η εξής: πως μπορώ να βγάλω σε έκθεση ενα φιλτραρισμένο ερώτημα?
Η βάση έχει δημιουργηθεί για το Κτηματομεσιτικό μου γραφείο, για καταχωρήσεις ακινήτων.
Λοιπόν, θέλω να μου εμφανίζει το ερώτημα στο οποίο εγώ θα φιλτράρω τις στήλες και μετά να μπορώ να το βγάζω σε έκθεση για εκπύπωση. Δηλαδή να φιλτράρω σύμφωνα με την περιοχή και την τιμή π.χ. και να μπορώ να βγάζω σε έκθεση απευθείας με στοιχισμένα τα κελιά οπώς έχω προκαθορίσει, όχι κάθε φορά να σχεδιάζω την έκθεση.
Να μην έχω για κάθε αναζήτηση διαφορετικό ερώτημα
Ευχαριστώ,
Πάνος

Meteora 30-09-10 15:36
Καλημέρα Ελλάδα...όπου και αν είσαι.
Πάνο καλωσόρισες στη κοινότητα. Ανέβασε ένα πίνακα με μερικές υποθετικές εγγραφές και εξήγησε τι θες δίνοντας ένα παράδειγμα.
Τα ξανα-λέμε / Νίκος Δ.

wint3r 01-10-10 15:13
1 Συνημμένο(α)
Ευχαριστώ πολύ για το καλωσόρισμα! Από Θεσσαλονίκη είμαι. Και στέλνω το λίνκ με το αρχείο επεξήγησης και όλα αυτά που μου ζήτησες φίλε Νίκο.

Download Plirofories.doc, upload your files and earn money.


Παράθεση:
Τάσος - Edit: Συνημμένα από File sharing ιστισελίδες έχουν μιικρή διάρκεια εγκυρότητας.
Δεν είναι ότι καλύτερο για ενα φόρουμ να περιέχει τέοιου είδους Links.
Αντί για τον παραπάνω σύνδεσμο, παρακαλώ δείτε το συνημμένο παρακάτω:

Πάνος

Meteora 01-10-10 16:52
Καλησπέρα...
Πάνο 'κατέβασα' το αρχείο που 'ανέβασες' αλλά δεν μπορώ να μεγεθύνω τις εικόνες που έχεις μέσα. Δεν μπορώ να διαβάσω, αλλά και να διάβαζα πάλι δεν θα μπορούσα να βοηθήσω διότι η σχεδίαση ένος μεγάλου πίνακα, το πέρασμα κάποιων δεδομένων σε αυτόν δεν είναι δική μου δουλειά.
Στο Forum να ανεβάσεις όχι την δομή πίνακα αλλά τον πίνακα μαζί με κάποια περιεχόμενα. Στη συνέχεια εξηγείς ποιά πεδία θέλεις να εμφανίζονται στην έκθεση και με ποια κατηγοριοποίηση.
Στο ανέβασμα ακολούθησες ένα τρόπο όχι συνήθη. Θέλω να σε ενημερώσω ότι επισυναπτόμενα αρχεία μπορείς να ανεβάσεις μέσω του Forum. Αν δεν γνωρίζεις τη διαδικασία πες το.
Σε χαιρετώ απο Ωραιόκαστρο / Νίκος Δ.

Προσθήκη : Τα κατάφερα και μεγιστοποίησα τις εικόνες. Πάνο ανέβασε πίνακα... ...Ζήτησε βοήθεια για ότι θες..

kapetang 01-10-10 17:31
Καλησπέρα στην παρέα

Πάνο δεν είμαι σίγουρος ότι κατάλαβα τι ακριβώς θέλεις, αλλά τα παρακάτω ίσως σε βοηθήσουν:
1. Δημιούργησε ένα ερώτημα με όλα τα πεδία του πίνακά σου, χωρίς κριτήρια και αποθήκευσέ το με ένα όνομα πχ qryReport.
2. Άνοιξε την έκθεση σε προβολή σχεδίασης άλλαξε την προέλευση εγγραφών σε qryReport (φύλλο ιδιοτήτων έκθεσης > Δεδομένα > Προέλευση εγγραφών > επιλογή qryReport) και αποθήκευσε την έκθεση.
Τρόπος εργασίας:
1. Θα ανοίγεις το ερώτημα (qryReport) σε προβολή σχεδίασης θα βάζεις τα κριτήρια που θέλεις και θα το αποθηκεύεις.
2. Στη συνέχεια θα ανοίγεις την έκθεση και αυτή κανονικά θα σου δείχνει ότι εμφανίζεται στο φιλτραρισμένο ερώτημα και στη διάταξη που θέλεις.
Αν μας ενημέρωνες καλύτερα, όπως σου ζήτησε και ο Νίκος, ίσως να μπορούσαμε να βοηθήσουμε για κάτι καλύτερο.

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

Tasos 01-10-10 17:35
Καλησπέρα κι από μένα!

Πάνο καλωσόρισες στο φόρουμ!

Κατέβασα το συνημμένο σου από την ιστοσελίδα, συμπίεσα τις εικόνες του, αύξησα το zoom για να διαβάζεται ευκολότερα, και το επισύναψα ξανά στο μήνυμα σου (αυτή τη φορά στο δικό μας φόρουμ) για να μπορούν να το κατεβάσουν ευκολότερα και οι υπόλοιποι φίλοι.

Στην ερώτηση σου:

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

Κώδικας:
Private Sub cmdOpenReport_Click()
    On Error GoTo Err_cmdOpenReport_Click

    Dim stDocName As String, strCriteria As String
    If Me.FilterOn Then strCriteria = Me.Filter

    stDocName = "Qry1"
    DoCmd.OpenReport stDocName, acViewReport, , strCriteria

Exit_cmdOpenReport_Click:
    Exit Sub

Err_cmdOpenReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenReport_Click

End Sub
Έτσι, θα ανοίγεις την έκθεση σου και θα δείχνει αυτα ακριβώς που δείχνει και η φόρμα σου όταν φιλτράρεις δεδομένα.

Ελπίζω να σ εξυπηρετεί!


Φιλικά

Τάσος

wint3r 04-10-10 11:26
Παράθεση:
Αρχική Δημοσίευση από kapetang (Μήνυμα 3855)
Καλησπέρα στην παρέα

Πάνο δεν είμαι σίγουρος ότι κατάλαβα τι ακριβώς θέλεις, αλλά τα παρακάτω ίσως σε βοηθήσουν:
1. Δημιούργησε ένα ερώτημα με όλα τα πεδία του πίνακά σου, χωρίς κριτήρια και αποθήκευσέ το με ένα όνομα πχ qryReport.
2. Άνοιξε την έκθεση σε προβολή σχεδίασης άλλαξε την προέλευση εγγραφών σε qryReport (φύλλο ιδιοτήτων έκθεσης > Δεδομένα > Προέλευση εγγραφών > επιλογή qryReport) και αποθήκευσε την έκθεση.
Τρόπος εργασίας:
1. Θα ανοίγεις το ερώτημα (qryReport) σε προβολή σχεδίασης θα βάζεις τα κριτήρια που θέλεις και θα το αποθηκεύεις.
2. Στη συνέχεια θα ανοίγεις την έκθεση και αυτή κανονικά θα σου δείχνει ότι εμφανίζεται στο φιλτραρισμένο ερώτημα και στη διάταξη που θέλεις.
Αν μας ενημέρωνες καλύτερα, όπως σου ζήτησε και ο Νίκος, ίσως να μπορούσαμε να βοηθήσουμε για κάτι καλύτερο.

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

Πάνος

editolis 04-10-10 13:23
Φιλε Πανο,

Την Λυση σου την εδωσε ο Τασος αλλα εσυ δεν την μελετησες.

Καλη συνεχεια...

wint3r 04-10-10 13:38
Παράθεση:
Αρχική Δημοσίευση από editolis (Μήνυμα 3898)
Φιλε Πανο,

Την Λυση σου την εδωσε ο Τασος αλλα εσυ δεν την μελετησες.

Καλη συνεχεια...
Το κάνω φίλε μου αλλά δεν μου βγάζει τίποτα... τι κάνω λάθος?

kapetang 04-10-10 14:54
Καλησπέρα στην παρέα

Πάνo η λύση που έδωσε ο Τάσος να φιλτράρεις τις εγγραφές στη φόρμα και μετά να τις εμφανίζεις στην έκθεση είναι η καλύτερη.
Επειδή πιθανόν να σου φαίνεται ευκολότερο να δουλεύεις σε ερώτημα να έχεις υπόψη σου:
1. Για να εφαρμοστεί το φίλτρο του ερωτήματος στην έκθεση πρέπει να είναι αποθηκευμένο στο ερώτημα. Αν κάνουμε (για έλεγχο) δεξί κλικ στο πάνω μέρος του ερωτήματος (στο πλέγμα) και ανοίξουμε τις ιδιότητες, η ιδιότητα φίλτρο δεν πρέπει να είναι κενή. Μπορείς επίσης να πατήσεις στη γραμμή εργαλείων το κουμπί με το χωνί, οπότε αν το ερώτημα έχει φίλτρο, θα εφαρμοστεί.
2. Στην έκθεση στη σχεδίαση στην ιδιότητα φιλτράρισμα κατά πρέπει να είναι επιλεγμένο το ΝΑΙ. Και εδώ όταν η έκθεση παίρνει το φίλτρο του ερωτήματος η ιδιότητά της φίλτρο δεν είναι κενή.
Καλή συνέχεια

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

wint3r 04-10-10 15:35
Το πρόβλημα είναι ότι όταν φιλτράρω το ερώτημα και πατάω αποθήκευση για κάποιο λόγο δεν κρατάει την αποθήκευση.

Πάνος

kapetang 04-10-10 15:56
Καλησπέρα και πάλι

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

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

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

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

Πάνος

Tasos 05-10-10 10:28
Καλημέρα σε όλους!
Αγαπητε Πάνο, η 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 06-10-10 08:40
1 Συνημμένο(α)
Ανέβασα το αρχείο για να μπορέσετε να με βοηθήσετε. Ευχαριστώ.
Πάνος

kapetang 06-10-10 17:06
1 Συνημμένο(α)
Καλησπέρα στην παρέα

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

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

kapetang 07-10-10 11:15
1 Συνημμένο(α)
Καλημέρα στην παρέα

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

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

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

kapetang 07-10-10 14:46
Καλησπέρα στην παρέα

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

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

wint3r 08-10-10 11:31
Παράθεση:
Αρχική Δημοσίευση από kapetang (Μήνυμα 3942)
Καλησπέρα στην παρέα

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

Φιλικά/Γιώργος
Γιώργο σε αυτό που μου έστειλες πατάω ΟΛΑ και πάλι δεν μου τα εμφανίζει όλα

Πάνος

wint3r 08-10-10 12:18
Οκ το έκανα, πώς γίνεται να μη μου ζητάει "Τιμή Παραμέτρου" όταν τρέχω την αναζήτηση?

kapetang 08-10-10 14:36
Ειλικρινά δεν καταλαβαίνω σε ποια αναζήτηση αναφέρεσαι και σε ποια παράμετρο.
Υπάρχει μία φόρμα στην οποία επιλέγεις κριτήρια και στη συνέχεια πατάς το κουμπί (πάνω δεξιά) για να εμφανιστεί η αντίστοιχη έκθεση. Δε συμβαίνει αυτό;
Ίσως θα μπορούσα να βοηθήσω αν περιέγραφες αναλυτικά το πρόβλημα.


Η ώρα είναι 13:10.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2