Acest tutorial Access VBA va discuta despre cum să interacționați cu rapoartele Access folosind VBA.
Imprimați raportul
Această funcție VBA va imprima un raport de acces:
Funcția publică 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: Exit Function SubError: Exit Function SubError: Numărul & ":" & Funcția de sfârșit a descrierii
Puteți apela funcția astfel:
Private Sub Print_Report_Example () Apelați Print_Report ("Raport1") Terminați sub
Observați că funcția folosește următoarea linie de cod pentru a imprima raportul:
DoCmd.RunCommand acCmdPrint
după deschiderea și selectarea raportului (vezi secțiunea următoare).
Deschide / Selectează raport
Funcția de mai sus a folosit DoCmd.OpenReport pentru a deschide raportul:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Notă: pentru acest exemplu am înlocuit variabila Denumire raport cu numele tabelului „Raport1”
Apoi selectează raportul:
DoCmd.SelectObject acReport, "Raport1"
Filtru raport
De asemenea, puteți filtra un raport deschizând raportul cu criterii specifice:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Exportați raportul în Excel
Puteți utiliza DoCmd.OutputTo pentru a transmite raportul în Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Această funcție VBA va exporta un raport în Excel:
Funcție publică 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 \ ExportedRe Funcția de sfârșit
Funcția se va salva în FilePath introdus, dar dacă nu este aleasă nicio cale de fișier, se va salva în folderul Temp de pe unitatea C.
Puteți apela funcția astfel:
Private Sub Export_Report_Example () Apelați Export_Report („Rpt1”, „C: \ examples \ report1.xls”) Finalizați Sub
DoCmd.OutputTo produce un fișier nou. În schimb, puteți ieși într-un fișier existent sau utilizați DoCmd.OutputTo pentru a scoate alte obiecte Excel. Puteți afla mai multe în articolul nostru despre importul / exportul în Access VBA.
