Selles Access VBA õpetuses arutatakse, kuidas VBA abil Accessi aruannetega suhelda.
Prindi aruanne
See VBA -funktsioon prindib juurdepääsu aruande:
Avalik funktsioon Print_Report (aruande nimi stringina) vea korral GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: ErfrErf Number & ":" & Err.Kirjelduse lõppfunktsioon
Funktsiooni saate helistada järgmiselt:
Privaatne alam Print_Report_Example () Kõne Print_Report ("Report1") Lõpu alam
Pange tähele, et funktsioon kasutab aruande printimiseks järgmist koodirida:
DoCmd.RunCommand acCmdPrint
pärast aruande avamist ja valimist (vt järgmist jaotist).
Ava / vali aruanne
Ülaltoodud funktsioon kasutas aruande avamiseks DoCmd.OpenReporti:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Märkus: selle näite puhul oleme muutuja asendanud ReportName tabeli nimega "Aruanne 1"
Seejärel valib ta aruande:
DoCmd.SelectObject acReport, "Report1"
Aruande filtreerimine
Aruannet saate filtreerida, avades aruande konkreetsete kriteeriumidega.
DoCmd.OpenReport "Report1", acViewPreview, "num = 0"
Ekspordi aruanne Excelisse
Aruande Excelisse väljastamiseks saate kasutada DoCmd.OutputTo:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ example \ report1.xls"
See VBA -funktsioon ekspordib aruande Excelisse:
Avalik funktsioon Export_Report (aruande nimi kui string, failitee kui string) vea korral GoTo alamviga DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Välju funktsioonist Alamviga: Helista Export_Report ("Report1", "c: \ t Lõppfunktsioon
Funktsioon salvestatakse sisestatud FilePathi, kuid kui failiteed pole valitud, salvestatakse see C -draivi temp kausta.
Funktsiooni saate helistada järgmiselt:
Privaatne alameksport Eksport_aruanne_näide () Kõne eksport_aruanne („Rpt1”, „C: \ example \ report1.xls”) Lõpu alam
DoCmd.OutputTo väljastab uue faili. Selle asemel saate väljundi olemasolevasse faili või kasutada teiste Exceli objektide väljastamiseks DoCmd.OutputTo. Lisateavet leiate meie artiklist Access VBA importimise / eksportimise kohta.
