Πρώτα Βήματα - Βάσεις δεδομένων

Απ: access: Πως στέλνω ολόκληρo sql query σε report σε προβολή προεπισκόπησης και εκτύπωση

nickg — Wed, 26 Sep 2007 00:33:23 GMT

Ευχαριστώ πάρα πολύ. Εφάρμοσα τον κατα εμένα ποιο είκολο τρόπο δηλαδή τον δεύτερο και δούλεψε. Ηταν κατι απλό .Απορώ πως δεν το είχα σκεφτεί.

Απ: access: Πως στέλνω ολόκληρo sql query σε report σε προβολή προεπισκόπησης και εκτύπωση

KoYkoY — Tue, 25 Sep 2007 18:28:30 GMT

Μπορείς να αλλάξεις την ιδιότητα RecordSource στο συμβάν OnOpen της αναφοράς περνώντας την sql είτε μέσω μιας δημόσιας μεταβλητής είτε κρατώντας την τιμή της σε ένα αόρατο textbox της φόρμας από την οποία καλείς την αναφορά (σε αυτή την περίπτωση η φόρμα πρέπει να είναι ανοιχτή όταν ανοίγει η αναφορά).

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

Αλλος τρόπος είναι να ορίσεις ως προέλευση εγγραφών της αναφοράς ένα ερώτημα και να αλλάζεις την sql του ερωτήματος πριν ανοίξεις την αναφορά.

Dim dbs as Database
Dim myQuery as QueryDef
Set dbs= CurrentDB
Set myQuery= dbs.QueryDefs("ΌνομαΕρωτήματος")
myQuery.SQL = "........."
myQuery.Close
Set myQuery = Nothing
Set dbs = Nothing

access: Πως στέλνω ολόκληρo sql query σε report σε προβολή προεπισκόπησης και εκτύπωση

nickg — Tue, 25 Sep 2007 01:33:46 GMT

Γεια σας
Δοκιμάζω να εφαρμόσω sql query σε report αλλά βγάζει μήνυμα ότι δεν μπορω να 'ορίσω την ιδιότητα προέλευση εγγραφών σε προβολή προεπισκόπησης ή μετά την έναρξη της εκτύπωσης'.
Με ποιο τρόπο μπορω να εφαρμόσω query σε report ? Χρείαζεται γιατι δεν θέλω να εφαρμόσω ένα απλό query αλλα ένα σύνθετο με subquery.

τρόπος με τον οποίο προσπάθησα:

stDocName = "syndromhDenPlhrwsan"

DoCmd.OpenReport stDocName, acPreview, , "[id_συνδρομη]=" & Me![idSyndromh].Value & " And melos.[ΔΟΥ id] =" & Me![idDoy]

suquery="bla bla"
sql = "bla bla bla"
sql=sql & subquery

Reports!syndromhDenPlhrwsan.RecordSource = sql

Ευχαριστώ προκαταβολικά