• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cách tính tổng của mỗi trang trong Reports

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Report
  • Cách tính tổng của mỗi trang trong Reports
• Cách tính tổng của mỗi trang trong Reports

• Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 11-05-11, 06:23 PM

  Trong Reports mình muốn có dòng tổng cộng ở cuối mỗi trang và dòng tổng cộng ở cuối trang này được mang sang đầu trang sau.
  
  Ý mình như vậy, nhưng chưa biết cách nào thực hiện, mong các bạn hướng dẫn trên file mình gửi kèm, Xin cám ơn !
  
  

• RE: Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 11-05-11, 10:46 PM

  Noname ơi giúp mình với...

• RE: Cách tính tổng của mỗi trang trong Reports

  Noname > 12-05-11, 12:51 AM

  Sau đây là 1 cách để thực hiện yêu cầu tính tổng trang và có cộng dồn từng trang.
  
  
  
  

  Mã:

  'Khai báo trong module của Report
'tác giả: [b]lehongduc[/b]
'site: webketoan
'vui long giu thong tin tac gia neu ban dung doan code duoi day

Option Compare Database
Option Explicit

Dim Tongtrang As Double
Dim CongDon As Double

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then
Tongtrang = Tongtrang + Me.Quantity
End If
CongDon = CongDon + Me.Quantity
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.CongTrang = Tongtrang
Me.CongdonCuoiTrang = Me.CongMangSang + Tongtrang
End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If Page = 1 Then CongDon = 0
Tongtrang = 0
Me.CongMangSang = CongDon
End Sub

Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
CongDon = 0
Tongtrang = 0
End Sub

• RE: Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 12-05-11, 12:25 PM

  Cám ơn bạn rất nhiều và thật nhiếu. Bạn có thể giúp mình thêm 1 vấn đề này nữa không ?
  - Cũng trong repot có cột "Ngày tháng năm" dạng dd/mm/yyyy và cột "Số tiền"
  - Mình muốn cộng từng quý (Cứ mỗi 1 quý là có 1 dòng tổng). Quý 1 từ ngày 01/01/xxxx đến 31/03/xxxx Quý 2 ....
  
  Rất mong nhận được hướng dẫn của bạn.

• RE: Cách tính tổng của mỗi trang trong Reports

  haquocquan > 12-05-11, 01:16 PM

  Bạn sử dụng Sorting and Grouping trong report để cộng từng quý.
  Xem report VIDU trong file

• RE: Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 12-05-11, 03:04 PM

  Ý mình là muốn cộng ở cột "Số tiền" theo từng quý, có trong report "T-NGHIEPVUCHITIET"

• RE: Cách tính tổng của mỗi trang trong Reports

  haquocquan > 12-05-11, 04:20 PM

  (12-05-11, 03:04 PM)DoquangLam Đã viết: Ý mình là muốn cộng ở cột "Số tiền" theo từng quý, có trong report "T-NGHIEPVUCHITIET"

  
  Đó là ví dụ về cách làm để bạn tham khảo.
  Quay lại bài của bạn:
  - report "T-NGHIEPVUCHITIET" có record source là table "T-NGHIEPVUCHITIET". table "T-NGHIEPVUCHITIET" của bạn làm gì có ngày mà tính quý được?
  - Bạn đặt lại source cho report và chỉ cần tạo một textbox trên QUI header của report và đặt source: =sum(sotien)
  Chúc thành công.

• RE: Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 12-05-11, 04:51 PM

  Noname ơi, phát sinh thêm vấn đề này nữa, bạn xem lại nhé.
  Phần thiết kế Report ở khung Report Footer mình thiết kê thêm chữ hoặc gì đó thì đến trang cuối cùng "Cộng trang này" không có số liệu -> "Cộng dồn cuối trang" cũng sai luôn. Nếu kéo sát cùng màu trăng lên sát thanh Report Footer thì đúng.
  
  Vì phần này thường dùng để ghi chú, ký...

• RE: Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 12-05-11, 10:21 PM

  Bạn Noname và các bạn ơi, xem xét trường hợp này giúp mình với, cám ơn !

  ---

  Mình đã "Mò" ra rồi các bạn ạ : Bỏ các dòng lệnh dưới đây đi là OK
  
  Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
  'CongDon = 0
  'Tongtrang = 0
  End Sub
  

• RE: Cách tính tổng của mỗi trang trong Reports

  DoquangLam > 12-05-11, 10:43 PM

  Vẫn không ổn các bạn ạ. Nếu mà không có số liệu thì báo lỗi ngay dòng màu đỏ. Vụ này thì mình bó tay rồi, nhờ bạn Noname xem xét nhé.
  
  Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  If PrintCount = 1 Then
  Tongtrang = Tongtrang + Me.SoTien
  End If
  CongDon = CongDon + Me.SoTien
  End Sub
  
• Bài trước Bài tiếp