Hướng dẫn Access VBA này sẽ thảo luận về cách tương tác với Báo cáo Access bằng VBA.
In báo cáo
Hàm VBA này sẽ in báo cáo Access:
Public Function Print_Report (ReportName As String) On Error GoTo SubError DoCmd.OpenReport ReportName, acViewPreview,,, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubExit: Exit Function SubError: "Print_fRepBox lỗi:" Số & ":" & Err.Description End Chức năng
Bạn có thể gọi hàm như sau:
Private Sub Print_Report_Example () Call Print_Report ("Report1") End Sub
Lưu ý rằng hàm sử dụng dòng mã sau để in báo cáo:
DoCmd.RunCommand acCmdPrint
sau khi Mở và Chọn báo cáo (xem phần tiếp theo).
Mở / Chọn Báo cáo
Hàm trên đã sử dụng DoCmd.OpenReport để mở báo cáo:
DoCmd.OpenReport "Report1", acViewPreview,,, acHiden
Lưu ý: đối với ví dụ này, chúng tôi đã thay thế biến ReportName với tên bảng “Báo cáo 1”
Tiếp theo, nó chọn báo cáo:
DoCmd.SelectObject acReport, "Report1"
Lọc Báo cáo
Bạn cũng có thể Lọc Báo cáo bằng cách mở báo cáo với các tiêu chí cụ thể:
DoCmd.OpenReport "Report1", acViewPreview, "num = 0"
Xuất báo cáo sang Excel
Bạn có thể sử dụng DoCmd.OutputTo để xuất báo cáo sang Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \amples \ report1.xls"
Hàm VBA này sẽ xuất một báo cáo sang 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") Kết thúc chức năng
Hàm sẽ lưu vào FilePath đã nhập, nhưng nếu không có đường dẫn tệp nào được chọn, nó sẽ lưu vào Thư mục Temp trên ổ C.
Bạn có thể gọi hàm như sau:
Private Sub Export_Report_Example () Call Export_Report ("Rpt1", "C: \amples \ report1.xls") Kết thúc Sub
DoCmd.OutputTo xuất ra một tệp mới. Thay vào đó, bạn có thể xuất ra tệp hiện có hoặc sử dụng DoCmd.OutputTo để xuất các đối tượng Excel khác. Bạn có thể tìm hiểu thêm trong bài viết của chúng tôi về Nhập / Xuất trong Access VBA.
