Đào Việt Cường nói:Bạn có thể vào đây:
http://www.webketoan.com/forum/showpost.php?p=56235&postcount=3
Bạn ơi, bạn đang dùng excel hay access vậy?Nếu bạn dùng excel thì bạn qua đây dowload addin đổi số thành chữ về nhé.Nguyen Huong Thom nói:Anh có thể giúp em là làm thế nào đổi từ số ra dạng chữ không? VD cuối hoá đơn sẽ có tổng tiền bằng số mà sau đó sẽ có phần bằng chữ mà không cần sử dụng trong Macro.
Hồi xưa mình viết SoToChu trong access sau đó copy qua excel cùng trang lứa nó vẫn chạy bình thường mà, cái quan trọng ở đây chỉ là: :dzo:green_field nói:Bạn đang dùng excel hay access vậy?.
Chào các anh/chị. Làm thế nào để tính tổng thành tiền tại Page Footer trong Report.Cám ơn các anh/chị.Chúc các anh/chị ngày cuối tuần vui.
Trong Report ta có các trường như [TT], [HoDem], [Ten], [Cong], [Luong]
Muốn tính tổng từng trang của trường [Luong] thì
Người ta kéo lần lượt 2 trường [Luong]; Chọn control thứ 2 áp đặt tính Running Sum = Over All hay Over Group & xem xét nó thể hiện ~ con số gì trên bảng BC rồi tiếp tục:
Nếu control thứ 2 này thoả đ/k của bạn, thì ở phần Footer ta vẽ thêm 1 control = [Luong2] nêu trên là được thêm 1 bước
B3: làm đẹp = cách dấu [Luong2] đi cho khuất mắt mọi người;
Có gì thảo luận tiếp nha; Quá lâu rồi quên nhiều!
Muốn số tổng cuối của trang này chuyển sang đầu của trang tiếp theo thì làm thế nào.
Bác chưa hiểu ý em rồi:Ở Page Footer bạn thực hiện sang trang cho dòng sum ở report footer như sau : xem hình
Muốn số tổng cuối của trang này chuyển sang đầu của trang tiếp theo thì làm thế nào.
Chào các Bạn,
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.
'Khai báo trong module của Report
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
Xin tham khảo file đính kèm.