Ovaj Access VBA Vodič raspravljat će o načinu interakcije s Access izvješćima pomoću VBA.
Ispis izvješća
Ova VBA funkcija ispisat će izvješće o pristupu:
Javna funkcija Print_Report (ReportName As String) On Error GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint PodEksir Broj & ":" & Err.Opis Funkcija završetka
Funkciju možete pozvati ovako:
Private Sub Print_Report_Example () Poziv Print_Report ("Izvješće1") Kraj Sub
Primijetite da funkcija koristi sljedeći redak koda za ispis izvješća:
DoCmd.RunCommand acCmdPrint
nakon otvaranja i odabira izvješća (vidi sljedeći odjeljak).
Otvorite / odaberite izvješće
Gornja funkcija koristila je DoCmd.OpenReport za otvaranje izvješća:
DoCmd.OpenReport "Izvješće1", acViewPreview,,,, acHiden
Napomena: za ovaj primjer zamijenili smo varijablu ReportName s imenom tablice "Izvješće 1"
Zatim odabire izvješće:
DoCmd.SelectObject acReport, "Izvješće1"
Izvješće o filtriranju
Također možete filtrirati izvješće otvaranjem izvješća s posebnim kriterijima:
DoCmd.OpenReport "Izvješće1", acViewPreview,, "num = 0"
Izvoz izvješća u Excel
Za izlaz izvješća u Excel možete koristiti DoCmd.OutputTo:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Ova funkcija VBA izvezit će izvješće u Excel:
Javna funkcija Export_Report (ReportName As String, FilePath As String) On Error GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Izlaz Funkcija SubError: Poziv Export_Report ("Report1", "Exporter:" Završna funkcija
Funkcija će se spremiti na uneseni FilePath, ali ako nije odabran put do datoteke, spremit će se u mapu Temp na pogonu C.
Funkciju možete pozvati ovako:
Privatni pod Export_Report_Example () Poziv Export_Report ("Rpt1", "C: \ primjeri \ report1.xls") Kraj Sub
DoCmd.OutputTo ispisuje u novu datoteku. Umjesto toga možete ispisati u postojeću datoteku ili upotrijebiti DoCmd.OutputTo za izlaz drugih Excel objekata. Više možete saznati u našem članku o uvozu / izvozu u Access VBA.
