Tento výukový program Access VBA bude diskutovat o tom, jak komunikovat se zprávami Access pomocí VBA.
Tisk zprávy
Tato funkce VBA vytiskne zprávu o přístupu:
Veřejná funkce Print_Report (ReportName as String) On Error GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exit Function SubEr Číslo & ":" & Err.Konec funkce popisu
Funkci můžete volat takto:
Soukromý podtisk Tisk_Zpráva_Příklad () Volání Tisk_Zpráva („Report1“) Konec Sub
Všimněte si, že tato funkce používá k tisku sestavy následující řádek kódu:
DoCmd.RunCommand acCmdPrint
po otevření a výběru sestavy (viz další část).
Otevřít / vybrat hlášení
Výše uvedená funkce použila k otevření sestavy DoCmd.OpenReport:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Poznámka: v tomto případě jsme proměnnou nahradili ReportName s názvem tabulky „Report1“
Dále vybere zprávu:
DoCmd.SelectObject acReport, "Report1"
Filtrovat hlášení
Zprávu můžete také filtrovat otevřením sestavy se specifickými kritérii:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Export zprávy do aplikace Excel
DoCmd.OutputTo můžete použít k výstupu sestavy do aplikace Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Tato funkce VBA exportuje sestavu do aplikace Excel:
Public Function Export_Report (ReportName As String, FilePath As String) On Error GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Function SubError: Call Export_Report ("Report1", "c: \ temp \ Exported Koncová funkce
Funkce se uloží do zadaného souboru FilePath, ale pokud není vybrána žádná cesta k souboru, uloží se do dočasné složky na jednotce C.
Funkci můžete volat takto:
Private Sub Export_Report_Example () Volání Export_Report ("Rpt1", "C: \ examples \ report1.xls") End Sub
DoCmd.OutputTo výstupy do nového souboru. Místo toho můžete výstup do existujícího souboru nebo použít DoCmd.OutputTo k výstupu jiných objektů aplikace Excel. Více se můžete dozvědět v našem článku o importu / exportu v Access VBA.
