In diesem Access VBA-Tutorial wird erläutert, wie Sie mithilfe von VBA mit Access-Berichten interagieren.
Druckbericht
Diese VBA-Funktion druckt einen Zugriffsbericht:
Öffentliche Funktion Print_Report(ReportName As String) On Error GoTo SubError DoCmd.OpenReport ReportName, acViewPreview, , , , acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exit Function SubError: MsgBox "ErbCr. Fehler drucken: " Nummer & ": " & Err.Beschreibung Ende Funktion
Sie können die Funktion wie folgt aufrufen:
Private Sub Print_Report_Example() Aufruf Print_Report("Report1") End Sub
Beachten Sie, dass die Funktion die folgende Codezeile verwendet, um den Bericht zu drucken:
DoCmd.RunCommand acCmdPrint
nach dem Öffnen und Auswählen des Berichts (siehe nächster Abschnitt).
Bericht öffnen / auswählen
Die obige Funktion verwendet DoCmd.OpenReport, um den Bericht zu öffnen:
DoCmd.OpenReport "Report1", acViewPreview, , , , acHiden
Hinweis: Für dieses Beispiel haben wir die Variable ersetzt Berichtsname mit Tabellenname „Bericht1“
Als nächstes wählt es den Bericht aus:
DoCmd.SelectObject acReport, "Report1"
Bericht filtern
Sie können einen Bericht auch filtern, indem Sie den Bericht mit bestimmten Kriterien öffnen:
DoCmd.OpenReport "Report1", acViewPreview, , "num=0"
Bericht nach Excel exportieren
Sie können DoCmd.OutputTo verwenden, um den Bericht in Excel auszugeben:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C:\examples\report1.xls"
Diese VBA-Funktion exportiert einen Bericht nach Excel:
Öffentliche Funktion Export_Report(ReportName As String, FilePath As String) Bei Fehler GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Function SubError: Call Export_Report("Report1", "c:\temp\ExportedReport.xls") Endfunktion
Die Funktion speichert im eingegebenen FilePath, aber wenn kein Dateipfad ausgewählt wird, wird sie im temporären Ordner auf Laufwerk C gespeichert.
Sie können die Funktion wie folgt aufrufen:
Private Sub Export_Report_Example() Aufruf von Export_Report("Rpt1", "C:\examples\report1.xls") End Sub
Die Ausgabe von DoCmd.OutputTo in eine neue Datei. Stattdessen können Sie in eine vorhandene Datei ausgeben oder DoCmd.OutputTo verwenden, um andere Excel-Objekte auszugeben. Weitere Informationen finden Sie in unserem Artikel zum Importieren / Exportieren in Access VBA.
