Šioje „Access VBA“ pamokoje bus aptarta, kaip sąveikauti su prieigos ataskaitomis naudojant VBA.
Spausdinti ataskaitą
Ši VBA funkcija atspausdins prieigos ataskaitą:
Viešoji funkcija Print_Report (ataskaitos pavadinimas kaip eilutė) dėl klaidos GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exfr Skaičius & ":" & Err.Description Pabaigos funkcija
Funkciją galite iškviesti taip:
Privatus antraštė Print_Report_Example () Skambinti Print_Report („Report1“) Pabaiga
Atkreipkite dėmesį, kad ataskaitai spausdinti ši funkcija naudoja šią kodo eilutę:
DoCmd.RunCommand acCmdPrint
atidarius ir pasirinkus ataskaitą (žr. kitą skyrių).
Atidaryti / pasirinkti ataskaitą
Aukščiau pateikta funkcija naudojo „DoCmd.OpenReport“, kad atidarytų ataskaitą:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Pastaba: šiame pavyzdyje mes pakeitėme kintamąjį ReportName su lentelės pavadinimu „Pranešimas 1“
Tada jis pasirenka ataskaitą:
DoCmd.SelectObject acReport, "Report1"
Filtruoti ataskaitą
Ataskaitą taip pat galite filtruoti atidarydami ataskaitą pagal konkrečius kriterijus:
„DoCmd.OpenReport“ „Report1“, „acViewPreview“, „num = 0“
Eksportuoti ataskaitą į „Excel“
Galite naudoti „DoCmd.OutputTo“, kad išvestumėte ataskaitą į „Excel“:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ example \ report1.xls"
Ši VBA funkcija eksportuos ataskaitą į „Excel“:
Viešoji funkcija Export_Report (ataskaitos pavadinimas kaip eilutė, failo kelias kaip eilutė) Klaida GoTo subError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Function SubError: Call Export_Report ("Report1", "c) Pabaigos funkcija
Funkcija bus išsaugota įvestame „FilePath“, bet jei nepasirinktas joks failo kelias, ji bus išsaugota C disko „Temp“ aplanke.
Funkciją galite iškviesti taip:
Privatus antrinis Eksporto_Reporto_Pavyzdys () Skambinti Eksporto_Reportas („Rpt1“, „C: \ example \ report1.xls“) Pabaiga
„DoCmd.OutputTo“ išvesta į naują failą. Vietoj to galite išvesti į esamą failą arba naudoti „DoCmd.OutputTo“, kad išvestumėte kitus „Excel“ objektus. Daugiau apie tai galite sužinoti mūsų straipsnyje apie „Access VBA“ importavimą / eksportavimą.
