Γεια σας!
Αγαπητέ/ή φίλε/η καλωσόρισες στο φόρουμ!
Φρόντισε σε παρακαλώ να συμπληρώσεις το όνομα προσφώνησης σου στον πίνακα ελέγχου για να μπορούμε να σε φωνάζουμε με τ όνομα σου (
http://www.ms-office.gr/forum/profil...do=editprofile > Όνομα).
Για να μη εμφανίζονται όλες οι εγγραφές, θα πρέπει πρώτα να
εκτελεστεί το ερώτημα της έκθεσης που θα επιστρέψει τα επιθυμητά αποτελέσματα και κατόπιν να γίνει η εξαγωγή του.
Άρα:
Τα κριτήρια σου:
strCriteria = "[cd2Mb]=" & Me![cd2Mb]
Ανοίγουμε την έκθεση με τη γραμμή:
Κώδικας:
DoCmd.OpenReport strDocName, acViewPreview, , strCriteria, acHidden 'κρυφό
παράθυρο.Περιέχει τα αποτελέσματα που μας ενδιαφέρουν.
Κατόπιν, με τη γραμμή:
Κώδικας:
DoCmd.OutputTo ObjectType:=acReport, ObjectName:=strDocName
μπορούμε να εξάγουμε την έκθεση στη μορφή που θα επιλέξουμε από τον διάλογο που θα εμφανιστεί
ή χρησιμοποιούμε:
Κώδικας:
DoCmd.OutputTo ObjectType:=acReport, ObjectName:=strDocName, OutputFormat:=acFormatXLS, _
OutputFile:=CurrentProject.Path & "\" & strDocName & ".xls", AutoStart:=True
για αυτόματη εξαγωγή σε συγκεκριμένο σημείο του δίσκου (χρειάζεται προσαρμογή).
Τέλος κλείνουμε την "κρυμμένη" έκθεση με τη γραμμή:
Κώδικας:
DoCmd.Close acReport, strDocName
Ελπίζω να βοήθησα
Φιλικά
Τάσος