Πώς να δημιουργήσετε μια έκθεση Δυναμική σε MS Access

Στη Microsoft Access , μια δυναμική έκθεση είναι μια έκθεση που κάνει κάτι από μόνη της : δημιουργεί ή ανοίγει η ίδια ή υπολογίζει ένα πεδίο από μόνη της , έτσι ώστε να μην χρειάζεται να . Μπορείτε να καθορίσετε αυτές τις αυτόματες ενέργειες κατά τη διάρκεια του σχεδιασμού της έκθεσης , χρησιμοποιώντας τη γλώσσα του υπολογιστή Visual Basic for Applications . Τα πράγματα που θα χρειαστείτε για Microsoft Access
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Δημιουργήστε ένα δείγμα πίνακα των πωλήσεων ταινία , χρησιμοποιώντας τα δεδομένα που ακολουθεί . Εισάγετε την πρώτη γραμμή των δεδομένων , όπως τα ονόματα των πεδίων του πίνακα .

Movietitle , saledate , unitcost , qtysolddoc zhivogo , 1/1/2009 , $ 5.01,3 doc zhivogo , 1/3/2009 , $ 4.95,2 βόδι κονδυλώματα , 1/5/2009 , $ 1.95,1 κονδυλώματα βόδι , 1/6/2009 , $ 0.95,2 doc zhivogo , 13.1.2009 , $ 3.00,1 2

Επιλέξτε " Δημιουργία " ακολουθούμενη από την «Έκθεση» για να δημιουργήσετε μια νέα αναφορά . ( Χρήστες Access 2003 , επιλέξτε " αντικείμενα " και στη συνέχεια κάντε κλικ στο κουμπί " Εκθέσεις " και " Νέα ". ) Κάντε δεξί κλικ στην καρτέλα της νέας έκθεσης και επιλέξτε " Προβολή σχεδίασης . " Κάντε κλικ στο εικονίδιο ελέγχου πλαισίου κειμένου η γραμμή εργαλείων της Access και, στη συνέχεια , κάντε κλικ σε ένα κενό χώρο στα δεξιά των υφιστάμενων τομέων , στην ενότητα " Λεπτομέρεια " της έκθεσης .
εικόνων 3

Επιλέξτε το αριστερό πλαίσιο κειμένου του ζεύγους των πλαισίων κειμένου που Access έχει δημιουργηθεί αυτόματα , στη συνέχεια, πατήστε το πλήκτρο "διαγραφή" . Κάντε δεξί κλικ στο υπόλοιπο κειμένου και επιλέξτε " Ιδιότητες".
Η

4 Κάντε κλικ στο "Δεδομένα" καρτέλα του παραθύρου " Φύλλο ιδιοτήτων " , στη συνέχεια, πληκτρολογήστε το ακόλουθο κείμενο στο "Control πηγή " πεδίο :

= [ qtysold ] * [ unitcost ]
5

δεξιό κλικ στην καρτέλα της έκθεσης και επιλέξτε" Προβολή αναφοράς " για να εκτελέσετε την αναφορά . Ανακοίνωση για το νέο υπολογιζόμενο πεδίο που έχετε προσθέσει , το οποίο εμφανίζει το συνολικό πώληση ( χρόνοι τιμή μονάδας ποσότητα που πωλείται ) .
Η 6

δεξιό κλικ στην καρτέλα της έκθεσης και επιλέξτε " Προβολή σχεδίασης ", τότε κάντε δεξί κλικ οπουδήποτε στην έκθεση και κάντε κλικ στο κουμπί " Report Ιδιότητες". κάντε κλικ στο " Event" καρτέλα του παραθύρου " Φύλλο ιδιοτήτων " , στη συνέχεια, κάντε κλικ στο κάτω βέλος στο "On Load" πεδίο . Επιλέξτε " Διαδικασία συμβάντος , " και στη συνέχεια κάντε κλικ στο κουμπί " ... " για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) .
Η 7

Επικολλήστε τον ακόλουθο υπορουτίνα πάνω από το υπάρχον " Report_Load " υπορουτίνα :

Private Sub Report_Load ( ) wday = Ημέρα της εβδομάδας ( Now ( ) ) Αν ( wday = vbThursday ) ThenMe.Filter = " . ( [ moviesales ] [ movietitle ] Like " " βόδι * " " ) " ElseMe.Filter = " ( [ moviesales ] . [ movietitle ] Like " " doc * " " ) "End IfMe.FilterOn = TrueEnd Sub

Αντικαταστήστε το κείμενο που διαβάζει " vbThursday " με " vb "
8

Επιστροφή στην πρόσβαση και εκτελέστε ξανά την έκθεση , χρησιμοποιώντας αρχικές οδηγίες βήμα 5 του . Σημειώστε ότι μόνο οι γραμμές που περιέχουν " κατευθύνουν κονδυλώματα " εμφανίζονται , επειδή ο κώδικας μακροεντολών σας δημιουργήσει ένα δυναμικό φίλτρο για τις συγκεκριμένες γραμμές , για τις Πέμπτες .
Η 9

Άνοιγμα " Προβολή σχεδίασης " της έκθεσης χρησιμοποιώντας αρχικές οδηγίες βήμα 6 του . Επιστροφή στο " Report_Load " εκδήλωση δώσατε προηγουμένως ( βλ. βήμα 6 . ) Αντικαταστήστε το " vb " με " vb " , στη συνέχεια, εκτελέστε ξανά την έκθεση . Σημειώστε ότι μόνο οι « doc zhivogo " γραμμές εμφανίζονται , με βάση την αλλαγή που κάνατε στον κώδικα του προγράμματος .
Η
εικόνων