Αυτό το σεμινάριο Access VBA θα συζητήσει πώς να αλληλεπιδράσετε με τις αναφορές πρόσβασης χρησιμοποιώντας το VBA.
Εκτύπωση Αναφοράς
Αυτή η λειτουργία VBA θα εκτυπώσει μια αναφορά Access:
Δημόσια Λειτουργία Print_Report (ReportName As String) On Error GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint Subject: Excr: Excr Αριθμός & ":" & Err.Description End Function
Μπορείτε να καλέσετε τη συνάρτηση ως εξής:
Private Sub Print_Report_Example () Call Call Print_Report ("Report1") End Sub
Παρατηρήστε ότι η συνάρτηση χρησιμοποιεί την ακόλουθη γραμμή κώδικα για να εκτυπώσει την αναφορά:
DoCmd.RunCommand acCmdPrint
μετά το άνοιγμα και την επιλογή της αναφοράς (δείτε την επόμενη ενότητα).
Άνοιγμα / Επιλογή αναφοράς
Η παραπάνω συνάρτηση χρησιμοποίησε το DoCmd.OpenReport για να ανοίξει την αναφορά:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Σημείωση: για αυτό το παράδειγμα αντικαταστήσαμε τη μεταβλητή Όνομα αναφοράς με όνομα πίνακα “Αναφορά 1”
Στη συνέχεια, επιλέγει την αναφορά:
DoCmd.SelectObject acReport, "Report1"
Αναφορά φίλτρου
Μπορείτε επίσης να φιλτράρετε μια αναφορά ανοίγοντας την αναφορά με συγκεκριμένα κριτήρια:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Εξαγωγή αναφοράς στο Excel
Μπορείτε να χρησιμοποιήσετε το DoCmd.OutputTo για να εξάγετε την αναφορά στο Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ example \ report1.xls"
Αυτή η λειτουργία VBA θα εξάγει μια αναφορά στο Excel:
Public Function Export_Report (ReportName As String, FilePath As String) On Error GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Function SubError: Call Export_Report ("Report1", "" Λειτουργία Τέλους
Η συνάρτηση θα αποθηκευτεί στο εισαγόμενο FilePath, αλλά αν δεν επιλεγεί διαδρομή αρχείου, θα αποθηκευτεί στο φάκελο Temp στη μονάδα δίσκου C.
Μπορείτε να καλέσετε τη συνάρτηση ως εξής:
Private Sub Export_Report_Example () Call Export_Report ("Rpt1", "C: \ example \ report1.xls") End Sub
Το DoCmd.OutputTo εξέρχεται σε νέο αρχείο. Αντ 'αυτού, μπορείτε να εξάγετε σε ένα υπάρχον αρχείο ή να χρησιμοποιήσετε το DoCmd.OutputTo για έξοδο άλλων αντικειμένων του Excel. Μπορείτε να μάθετε περισσότερα στο άρθρο μας σχετικά με την εισαγωγή / εξαγωγή στο Access VBA.
