[Tasos]

Καλησπέρα κι από μένα!

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

Κατέβασα το συνημμένο σου από την ιστοσελίδα, συμπίεσα τις εικόνες του, αύξησα το 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

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

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


Φιλικά

Τάσος