Få tilgang til VBA -rapporter - Skriv ut, eksporter, filtrer

Denne VBA -veiledningen i Access vil diskutere hvordan du samhandler med tilgangsrapporter ved hjelp av VBA.

Skriv ut rapport

Denne VBA -funksjonen vil skrive ut en Access -rapport:

Offentlig funksjon Print_Report (rapportnavn som streng) ved feil GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exit Function SubError: "Exit Function SubError:" Exit Function SubError: "Exit Function SubError:" Exit Function SubError: "Exit Function SubError:" Exit Function SubError: "Exit Function SubError:" Number & ":" & Err.Description End Function

Du kan kalle funksjonen slik:

Privat del Print_Report_Example () Ring Print_Report ("Report1") Slutt Sub

Legg merke til at funksjonen bruker følgende kodelinje for å skrive ut rapporten:

DoCmd.RunCommand acCmdPrint

etter å ha åpnet og valgt rapporten (se neste avsnitt).

Åpne / velg rapport

Funksjonen ovenfor brukte DoCmd.OpenReport for å åpne rapporten:

DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden

Merk: for dette eksemplet har vi erstattet variabelen Rapportnavn med bordnavn “Rapport 1”

Deretter velger den rapporten:

DoCmd.SelectObject acReport, "Report1"

Filtrer rapport

Du kan også filtrere en rapport ved å åpne rapporten med spesifikke kriterier:

DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"

Eksporter rapport til Excel

Du kan bruke DoCmd.OutputTo til å sende rapporten til Excel:

DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"

Denne VBA -funksjonen eksporterer en rapport til Excel:

Offentlig funksjon 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") Sluttfunksjon

Funksjonen lagres i den angitte FilePath, men hvis ingen filbane er valgt, lagres den i Temp -mappen på C -stasjonen.

Du kan kalle funksjonen slik:

Private Sub Export_Report_Example () Ring Export_Report ("Rpt1", "C: \ examples \ report1.xls") Slutt Sub

DoCmd.OutputTo sender ut til en ny fil. I stedet kan du sende ut til en eksisterende fil eller bruke DoCmd.OutputTo til å sende ut andre Excel -objekter. Du kan lære mer i vår artikkel om import / eksport i Access VBA.