Đánh giá chủ đề:
  • 1 Votes - 1 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cách tính tổng của mỗi trang trong Reports
#1
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 !



File đính kèm
.zip   db1.zip (Kích cỡ: 70.63 KB / Tải về: 92)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Noname ơi giúp mình với...
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
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


File đính kèm
.zip   TotalPage.zip (Kích cỡ: 270.86 KB / Tải về: 190)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He
#4
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.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
Bạn sử dụng Sorting and Grouping trong report để cộng từng quý.
Xem report VIDU trong file


File đính kèm
.zip   db1.zip (Kích cỡ: 81.29 KB / Tải về: 117)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Cafe Via He
#6
Ý mình là muốn cộng ở cột "Số tiền" theo từng quý, có trong report "T-NGHIEPVUCHITIET"
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
(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.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He
#8
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ý...


File đính kèm
.zip   untitled.zip (Kích cỡ: 10.12 KB / Tải về: 32)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
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
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#10
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
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Làm sao để in được trang chẳn hoặc trang lẻ trong report access? nhattiensinh 5 1,042 08-12-16, 11:55 PM
Bài mới nhất: hoanghai902
  [Help] Cho mình hỏi cách tạo report động theo ngày BayVeo 1 69 07-12-16, 09:09 PM
Bài mới nhất: maidinhdan
  [Hỏi] cách giữ dòng tiêu đề trên trang 1 khi in. hoanghai902 4 68 06-12-16, 07:30 PM
Bài mới nhất: hoanghai902
  Hướng Dẫn Cách sắp xếp report? tieuho828 0 28 03-12-16, 09:05 PM
Bài mới nhất: tieuho828
  Công thức tính tồn lũy kế ở sổ quỹ feeling 2 179 26-11-16, 04:35 PM
Bài mới nhất: cpucloi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ