Ta vadnica Access VBA bo razpravljala o tem, kako komunicirati z Access Poročili z uporabo VBA.
Natisni poročilo
Ta funkcija VBA bo natisnila poročilo o dostopu:
Javna funkcija Print_Report (ReportName As String) On Error GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,,, acHiden DoCmd. Številka & ":" & Napaka Opis funkcije konca
Funkcijo lahko pokličete tako:
Private Sub Print_Report_Example () Pokliči Print_Report ("Report1") End Sub
Upoštevajte, da funkcija za tiskanje poročila uporablja naslednjo vrstico kode:
DoCmd.RunCommand acCmdPrint
po odprtju in izbiri poročila (glejte naslednji razdelek).
Odpri / izberi poročilo
Zgornja funkcija je za odpiranje poročila uporabila DoCmd.OpenReport:
DoCmd.OpenReport "Poročilo1", acViewPreview,,,, acHiden
Opomba: v tem primeru smo spremenljivko zamenjali ReportName z imenom tabele "Poročilo 1"
Nato izbere poročilo:
DoCmd.SelectObject acReport, "Poročilo1"
Poročilo o filtriranju
Poročilo lahko tudi filtrirate tako, da poročilo odprete s posebnimi merili:
DoCmd.OpenReport "Poročilo1", acViewPreview,, "num = 0"
Izvozi poročilo v Excel
Za izhod poročila v Excel lahko uporabite DoCmd.OutputTo:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Ta funkcija VBA bo izvozila poročilo v Excel:
Javna funkcija Export_Report (ReportName As String, FilePath As String) On Error GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Funkcija SubError: Call Export_Report ("Report1", "cport Končana funkcija
Funkcija se shrani na vneseno datotečno pot, če pa ni izbrana nobena pot do datoteke, se shrani v mapo Temp na pogonu C.
Funkcijo lahko pokličete tako:
Private Sub Export_Report_Example () Call Export_Report ("Rpt1", "C: \ examples \ report1.xls") End Sub
DoCmd.OutputTo oddaja v novo datoteko. Namesto tega lahko tiskate v obstoječo datoteko ali uporabite DoCmd.OutputTo za izpis drugih predmetov Excel. Več lahko izveste v našem članku o uvozu / izvozu v Access VBA.
