Tento výukový program Access VBA bude diskutovať o tom, ako interagovať so správami o prístupe pomocou jazyka VBA.
Vytlačiť správu
Táto funkcia VBA vytlačí správu o prístupe:
Verejná funkcia Print_Report (ReportName ako reťazec) pri chybe GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Mx Číslo & ":" & Err.Popis Funkcia ukončenia popisu
Túto funkciu môžete zavolať takto:
Súkromná podtlač Print_Report_Example () Hovor Print_Report („Report1“) End Sub
Všimnite si, že táto funkcia používa na vytlačenie správy nasledujúci riadok kódu:
DoCmd.RunCommand acCmdPrint
po otvorení a výbere zostavy (pozri nasledujúcu časť).
Otvoriť / vybrať hlásenie
Na otvorenie zostavy použila vyššie uvedená funkcia DoCmd.OpenReport:
DoCmd.OpenReport "Report1", acViewPreview,,,, acHiden
Poznámka: V tomto prípade sme premennú nahradili ReportName s názvom tabuľky „Report1“
Ďalej vyberie správu:
DoCmd.SelectObject acReport, „Report1“
Správa o filtri
Prehľad môžete tiež filtrovať tak, že ho otvoríte so špecifickými kritériami:
DoCmd.OpenReport "Report1", acViewPreview,, "num = 0"
Export správy do Excelu
DoCmd.OutputTo môžete použiť na odoslanie správy do programu Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Táto funkcia VBA exportuje správu do programu Excel:
Verejná funkcia Export_Report (ReportName ako reťazec, FilePath ako reťazec) Pri chybe GoTo SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubExit: Exit Function SubError: Call Export_Report ("Report1", "c: \ temp \ Exported Koncová funkcia
Funkcia sa uloží do zadanej cesty k súboru, ale ak nie je zvolená žiadna cesta k súboru, uloží sa do dočasného priečinka na jednotke C.
Túto funkciu môžete zavolať takto:
Súkromná čiastková exportná_správa_Príklad () Volanie Exportná_správa („Rpt1“, „C: \ examples \ report1.xls“) Koniec
Výstup DoCmd.OutputTo do nového súboru. Namiesto toho môžete výstup do existujúceho súboru alebo použiť DoCmd.OutputTo na výstup ďalších objektov programu Excel. Viac informácií sa dozviete v našom článku o importovaní / exportovaní v programe Access VBA.
