Denne Access VBA -tutorial vil diskutere, hvordan du interagerer med Access Reports ved hjælp af VBA.
Udskriv rapport
Denne VBA -funktion udskriver en Access -rapport:
Offentlig Funktion Print_Report (REPORTNAME As String) ved fejl GoTo Subfejl DoCmd.OpenReport REPORTNAME, acViewPreview,,,, acHiden DoCmd.SelectObject acReport, REPORTNAME DoCmd.RunCommand acCmdPrint SubExit: Exit Function Subfejl: MsgBox "Print_Report fejl:" & vbCrLf & Err. Nummer & ":" & Err.Description End Function
Du kan kalde funktionen sådan:
Privat del Print_Report_Example () Opkald Print_Report ("Report1") Afslut Sub
Bemærk, at funktionen bruger følgende kodelinje til at udskrive rapporten:
DoCmd.RunCommand acCmdPrint
efter åbning og valg af rapport (se næste afsnit).
Åbn / vælg rapport
Ovenstående funktion brugte DoCmd.OpenReport til at åbne rapporten:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Bemærk: for dette eksempel har vi erstattet variablen Rapportnavn med bordnavn “Rapport 1”
Dernæst vælger den rapporten:
DoCmd.SelectObject acReport, "Rapport1"
Filtrer rapport
Du kan også filtrere en rapport ved at åbne rapporten med specifikke kriterier:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Eksporter rapport til Excel
Du kan bruge DoCmd.OutputTo til at sende rapporten til Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Denne VBA -funktion eksporterer en rapport til 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", "c: \ temp \ ExportR") Afslut funktion
Funktionen gemmes i den indtastede FilePath, men hvis der ikke vælges en filsti, gemmes den i Temp -mappen på C -drevet.
Du kan kalde funktionen sådan:
Privat under Export_Report_Example () Opkald Export_Report ("Rpt1", "C: \ examples \ report1.xls") Afslut Sub
DoCmd.OutputTo udsender til en ny fil. I stedet kan du output til en eksisterende fil eller bruge DoCmd.OutputTo til at output andre Excel -objekter. Du kan lære mere i vores artikel om import / eksport i Access VBA.
