Ez az Access VBA oktatóanyag megvitatja, hogyan használható az Access Reports a VBA használatával.
Jelentés nyomtatása
Ez a VBA funkció kinyomtat egy Access jelentést:
Nyilvános függvény Print_Report (ReportName as String) On GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exfr Szám & ":" & Err.Description End Function
A funkciót így hívhatja:
Privát alnyomtatási_jelentés_példa () Hívásnyomtatási_jelentés („Jelentés1”) Vége
Vegye figyelembe, hogy a függvény a következő kód sort használja a jelentés nyomtatásához:
DoCmd.RunCommand acCmdPrint
a jelentés megnyitása és kiválasztása után (lásd a következő részt).
Jelentés megnyitása / kiválasztása
A fenti függvény a DoCmd.OpenReport alkalmazást használta a jelentés megnyitásához:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Megjegyzés: ebben a példában lecseréltük a változót ReportName tábla nevével „Jelentés 1”
Ezután kiválasztja a jelentést:
DoCmd.SelectObject acReport, "Report1"
Jelentés szűrése
A jelentést úgy is szűrheti, hogy megnyitja a jelentést meghatározott feltételek szerint:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Jelentés exportálása Excelbe
A DoCmd.OutputTo segítségével a jelentés Excelbe kerülhet:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ example \ report1.xls"
Ez a VBA funkció exportál jelentést az Excelbe:
Nyilvános függvény 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 Vége funkció
A függvény menti a megadott FilePath útvonalat, de ha nincs fájlútvonal kiválasztva, akkor a C meghajtó Temp mappájába menti.
A funkciót így hívhatja:
Privát alexport_Report_Example () Hívás Export_Report ("Rpt1", "C: \ example \ report1.xls") Befejező al
A DoCmd.OutputTo új fájlba ad ki. Ehelyett kimenetet készíthet egy meglévő fájlba, vagy használhatja a DoCmd.OutputTo parancsot más Excel objektumok kimenetére. Az Access VBA importálásáról / exportálásáról szóló cikkünkben többet megtudhat.
