V
To admin: Xin hãy giúp đỡ về cách tính tổng trang report
Chào các bạn,
Mình đã tham khảo cách tính tổng cộng cho trang report theo cách dưới đây nhưng không hiểu tại sao vẫn không thể ra được kết quả, rất mong các bạn giúp mình tìm ra sai sót ở chỗ nào và cách khắc phục:
.........trích............
Hỏi:
Tôi có 1 report có 3 cột : Stt, MatHang, DoanhThu
Tôi dễ dàng tính tổng doanh thu của tất cả các mặt hàng bằng cách tạo 1 textbox (TongDoanhThu) ở Report Footer = Sum(DoanhThu). Tuy nhiên sếp tôi yêu cầu thêm : trên từng trang của báo cáo phải có tính tổng doanh thu của các mặt hàng trên trang đó. Access không hổ trợ trực tiếp cách tính tổng trên từng trang, tôi phải làm sao ?
Đáp:
Bạn phải viết code hoặc dùng Macro để tỉnh tổng trang. Tôi sẽ hướng dẫn bạn cách viết code
- Ở Page Footer bạn tạo 1 textbox : TongTrang
- Nhập 2 sub sau :
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
TongTrang = TongTrang + DoanhThu
End Sub
Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
TongTrang = 0
' Reset TongTrang = 0 khi qua trang mới
End Sub
-------------------------------
Mình xin gửi kèm theo đây file ví dụ mà mình đã làm, mong nhận được góp ý của các bạn.
http://www.4shared.com/file/25233141/4b93413f/Example.html
Thanks !
Chào các bạn,
Mình đã tham khảo cách tính tổng cộng cho trang report theo cách dưới đây nhưng không hiểu tại sao vẫn không thể ra được kết quả, rất mong các bạn giúp mình tìm ra sai sót ở chỗ nào và cách khắc phục:
.........trích............
Hỏi:
Tôi có 1 report có 3 cột : Stt, MatHang, DoanhThu
Tôi dễ dàng tính tổng doanh thu của tất cả các mặt hàng bằng cách tạo 1 textbox (TongDoanhThu) ở Report Footer = Sum(DoanhThu). Tuy nhiên sếp tôi yêu cầu thêm : trên từng trang của báo cáo phải có tính tổng doanh thu của các mặt hàng trên trang đó. Access không hổ trợ trực tiếp cách tính tổng trên từng trang, tôi phải làm sao ?
Đáp:
Bạn phải viết code hoặc dùng Macro để tỉnh tổng trang. Tôi sẽ hướng dẫn bạn cách viết code
- Ở Page Footer bạn tạo 1 textbox : TongTrang
- Nhập 2 sub sau :
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
TongTrang = TongTrang + DoanhThu
End Sub
Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
TongTrang = 0
' Reset TongTrang = 0 khi qua trang mới
End Sub
-------------------------------
Mình xin gửi kèm theo đây file ví dụ mà mình đã làm, mong nhận được góp ý của các bạn.
http://www.4shared.com/file/25233141/4b93413f/Example.html
Thanks !
Sửa lần cuối:

