đăng 20:31, 27 thg 3, 2012 bởi Hai Yen
[
đã cập nhật 07:40, 16 thg 9, 2014
]
Trong report ms access phân trang sau một số records xác định thì đưa đoạn code sau vào báo cáo Option Compare Database Dim nCounter As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If FormatCount > 1 Then Exit Sub If nCounter = so_mau_tin Then Detail.ForceNewPage = 1 nCounter = 0 Else Detail.ForceNewPage = 0 End If nCounter = nCounter + 1 End Sub
--------------------- Có thể dùng thuộc tính ForceNewPage (Đặt dấu ngắt trang) để ngắt trang
Ví dụ: Dim intGetVal As Integer intGetVal = Reports![Sales By Year].Section(acDetail).ForceNewPage ------------------------------- Nguyên tắc phân trang của Access là: 1. Đầy trang thì sang trang mới hoặc. 2. Kết thúc một Mục (Section) trong báo cáo và thuộc tính của Section là Break on [New page , nextpage ..vv]. Section là đại diện cho cách nhóm bản ghi khi tạo record bằng Wizard.
Vì thế để phân trang theo yếu tố nào, bạn chỉ cần làm report với nhóm theo yếu tố đó và bổ sung section vào report nếu cần. Sau đó thiết lập thuộc tính của Section đó. |
|