Šajā Access VBA apmācībā tiks apspriests, kā mijiedarboties ar Access ziņojumiem, izmantojot VBA.
Drukāt atskaiti
Šī VBA funkcija izdrukās piekļuves atskaiti:
Publiskās funkcijas Print_Report (ReportName as String) par kļūdu GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exfr ExitRex: Skaitlis & ":" & Err.Apraksts Beigu funkcija
Funkciju var izsaukt šādi:
Privāta apakšdruka Print_Report_Example () Call Call_Report ("Report1") End Sub
Ņemiet vērā, ka funkcija atskaites drukāšanai izmanto šādu koda rindu:
DoCmd.RunCommand acCmdPrint
pēc atskaites atvēršanas un izvēles (sk. nākamo sadaļu).
Atvērt / atlasīt pārskatu
Iepriekš minētā funkcija izmantoja DoCmd.OpenReport, lai atvērtu pārskatu:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Piezīme: šajā piemērā mēs esam aizstājuši mainīgo ReportName ar tabulas nosaukumu “Ziņojums 1”
Tālāk tas izvēlas pārskatu:
DoCmd.SelectObject acReport, "Report1"
Filtrēt pārskatu
Varat arī filtrēt pārskatu, atverot pārskatu ar konkrētiem kritērijiem:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Eksportēt pārskatu uz Excel
Lai izvadītu atskaiti programmā Excel, varat izmantot DoCmd.OutputTo:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ example \ report1.xls"
Šī VBA funkcija eksportēs pārskatu uz Excel:
Publiskā funkcija Export_Report (ReportName kā virkne, FilePath kā virkne) Kļūda GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Function SubError: Call Export_Report ("Report1", "c: \ x Beigu funkcija
Funkcija tiks saglabāta ievadītajā FilePath, bet, ja nav izvēlēts faila ceļš, tā tiks saglabāta C diska Temp mapē.
Funkciju var izsaukt šādi:
Privāta apakšvienība
DoCmd.OutputTo izvada jaunu failu. Tā vietā varat izvadīt esošā failā vai izmantot DoCmd.OutputTo, lai izvadītu citus Excel objektus. Jūs varat uzzināt vairāk mūsu rakstā par importēšanu / eksportēšanu programmā Access VBA.
