Tùy chọn
Tạo Form báo cáo
- Tạo Form báo cáo
-
Tạo Form báo cáo
hoat > 03-09-22, 06:30 PM
Xin chào toàn thể anh chị em.
Mình có tạo một form báo cáo hiệu quả của dự án, nhưng bị một lỗi mà không biết nguyên nhân và cách khắc phục. Khi một dự án mình nhập đầy đủ các thông tin: Doanh thu, chi phí mua hàng, chi phí nhân công, chi phí thầu phụ, chi phí khác, chi phí quả lý thì tính được hiệu quả dự án, còn dj án thiếu 1 trong các thông tin trên thì hiệu quả dự án không có. Mình muốn là khi nhập thiếu thì hiệu quả dự án vẫn có kể cả số âm.
Mình gửi đoạn code nhờ anh chị em xem giúp. Trân trọng cảm ơn
Private Sub txtNam_AfterUpdate()
Dim chiphi
If Comboloaicao = "Theo Nam" Then
txtDoanhthuhopdong = DSum("[Sotien]", "[T_Doanhthu]", "Nam= txtNam.Value")
txtDoanhthuhopdongquy1 = DSum("[Sotien]", "[T_Doanhthu]", "Nam= txtNam.Value And [Quy] = txtQuy1.Value")
txtDoanhthuhopdongquy2 = DSum("[Sotien]", "[T_Doanhthu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 2" & "'")
txtDoanhthuhopdongquy3 = DSum("[Sotien]", "[T_Doanhthu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 3" & "'")
txtDoanhthuhopdongquy4 = DSum("[Sotien]", "[T_Doanhthu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 4" & "'")
txtChiphimuahang = DSum("[TonggiatriPOchuaVAT]", "[T_CPMuahang]", "Nam= txtNam.Value")
txtChiphimuahangquy1 = DSum("[TonggiatriPOchuaVAT]", "[T_CPMuahang]", "Nam= txtNam.Value And [Quy] = '" & "Quý 1" & "'")
txtChiphimuahangquy2 = DSum("[TonggiatriPOchuaVAT]", "[T_CPMuahang]", "Nam= txtNam.Value And [Quy] = '" & "Quý 2" & "'")
txtChiphimuahangquy3 = DSum("[TonggiatriPOchuaVAT]", "[T_CPMuahang]", "Nam= txtNam.Value And [Quy] = '" & "Quý 3" & "'")
txtChiphimuahangquy4 = DSum("[TonggiatriPOchuaVAT]", "[T_CPMuahang]", "Nam= txtNam.Value And [Quy] = '" & "Quý 4" & "'")
txtChiphinhancong = DSum("[SotienPS]", "[T_CPNhancongDA]", "Nam= txtNam.Value")
txtChiphinhancongquy1 = DSum("[SotienPS]", "[T_CPNhancongDA]", "Nam= txtNam.Value And [Quy] = '" & "Quý 1" & "'")
txtChiphinhancongquy2 = DSum("[SotienPS]", "[T_CPNhancongDA]", "Nam= txtNam.Value And [Quy] = '" & "Quý 2" & "'")
txtChiphinhancongquy3 = DSum("[SotienPS]", "[T_CPNhancongDA]", "Nam= txtNam.Value And [Quy] = '" & "Quý 3" & "'")
txtChiphinhancongquy4 = DSum("[SotienPS]", "[T_CPNhancongDA]", "Nam= txtNam.Value And [Quy] = '" & "Quý 4" & "'")
txtChiphithauphu = DSum("[SotienTTTP]", "[T_CPNhaThauPhu]", "Nam= txtNam.Value")
txtChiphithauphuquy1 = DSum("[SotienTTTP]", "[T_CPNhaThauPhu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 1" & "'")
txtChiphithauphuquy2 = DSum("[SotienTTTP]", "[T_CPNhaThauPhu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 2" & "'")
txtChiphithauphuquy3 = DSum("[SotienTTTP]", "[T_CPNhaThauPhu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 3" & "'")
txtChiphithauphuquy4 = DSum("[SotienTTTP]", "[T_CPNhaThauPhu]", "Nam= txtNam.Value And [Quy] = '" & "Quý 4" & "'")
txtChiphikhac = DSum("[SoTienPS]", "[T_CPKhac]", "Nam= txtNam.Value")
txtChiphikhacquy1 = DSum("[SoTienPS]", "[T_CPKhac]", "Nam= txtNam.Value And [Quy] = '" & "Quý 1" & "'")
txtChiphikhacquy2 = DSum("[SoTienPS]", "[T_CPKhac]", "Nam= txtNam.Value And [Quy] = '" & "Quý 2" & "'")
txtChiphikhacquy3 = DSum("[SoTienPS]", "[T_CPKhac]", "Nam= txtNam.Value And [Quy] = '" & "Quý 3" & "'")
txtChiphikhacquy4 = DSum("[SoTienPS]", "[T_CPKhac]", "Nam= txtNam.Value And [Quy] = '" & "Quý 4" & "'")
txtChiphiquanly = DSum("[SotienCPQL]", "[T_CPQuanLy]", "Nam= txtNam.Value")
txtChiphiquanlyquy1 = DSum("[SotienCPQL]", "[T_CPQuanLy]", "Nam= txtNam.Value And [Quy] = '" & "Quý 1" & "'")
txtChiphiquanlyquy2 = DSum("[SotienCPQL]", "[T_CPQuanLy]", "Nam= txtNam.Value And [Quy] = '" & "Quý 2" & "'")
txtChiphiquanlyquy3 = DSum("[SotienCPQL]", "[T_CPQuanLy]", "Nam= txtNam.Value And [Quy] = '" & "Quý 3" & "'")
txtChiphiquanlyquy4 = DSum("[SotienCPQL]", "[T_CPQuanLy]", "Nam= txtNam.Value And [Quy] = '" & "Quý 4" & "'")
txtHieuquaduan = txtDoanhthuhopdong - txtChiphimuahang - txtChiphinhancong - txtChiphithauphu - txtChiphikhac - txtChiphiquanly
txtHieuquaduanquy1 = txtDoanhthuhopdongquy1 - txtChiphimuahangquy1 - txtChiphinhancongquy1 - txtChiphithauphuquy1 - txtChiphikhacquy1 - txtChiphiquanlyquy1
txtHieuquaduanquy2 = txtDoanhthuhopdongquy2 - txtChiphimuahangquy2 - txtChiphinhancongquy2 - txtChiphithauphuquy2 - txtChiphikhacquy2 - txtChiphiquanlyquy2
txtHieuquaduanquy3 = txtDoanhthuhopdongquy3 - txtChiphimuahangquy3 - txtChiphinhancongquy3 - txtChiphithauphuquy3 - txtChiphikhacquy3 - txtChiphiquanlyquy3
txtHieuquaduanquy4 = txtDoanhthuhopdongquy4 - txtChiphimuahangquy4 - txtChiphinhancongquy4 - txtChiphithauphuquy4 - txtChiphikhacquy4 - txtChiphiquanlyquy4
Exit Sub
ElseIf Comboloaicao = "Theo Du an" Then
txtDoanhthuhopdong = DSum("[Sotien]", "[T_Doanhthu]", "MaDuan= txtNam.Value")
txtChiphimuahang = DSum("[TonggiatriPOchuaVAT]", "[T_CPMuahang]", "MaDuan= txtNam.Value")
txtChiphinhancong = DSum("[SotienPS]", "[T_CPNhancongDA]", "MaDuan= txtNam.Value")
txtChiphithauphu = DSum("[SotienTTTP]", "[T_CPNhaThauPhu]", "MaDuan= txtNam.Value")
txtChiphikhac = DSum("[SoTienPS]", "[T_CPKhac]", "MaDuan= txtNam.Value")
txtChiphiquanly = DSum("[SotienCPQL]", "[T_CPQuanLy]", "MaDuan= txtNam.Value")
chiphi = txtChiphimuahang.Value + txtChiphinhancong.Value + txtChiphithauphu.Value + txtChiphikhac.Value + txtChiphiquanly.Value
txtHieuquaduan = txtDoanhthuhopdong.Value - chiphi
Exit Sub
End If
End Sub
Hình này có hiệu quả kinh doanh
![[Hình: E0xqoUf.jpg]](https://i.imgur.com/E0xqoUf.jpg)
hình này không có hiệu quả kinh doanh do thiếu số kiệu
![[Hình: 8Rqfhpb.jpg]](https://i.imgur.com/8Rqfhpb.jpg)
-
RE: Tạo Form báo cáo
ongke0711 > 03-09-22, 06:45 PM
Vấn đề bạn gặp phải chính là khi textbox không nhận giá trị thì textbox đó sẽ là Null và khi là Null thì nó cộng trừ nhân chia với bất cứu số nào đều bằng Null. Do đó bạn phải khử giá trị Null tức biến Null thành 0 thì khi đó mới tính toán được. Access có cái hàm hay đó là Nz(). Bạn ngâm cứu dùng hàm này đi.
Vd: a = Nz(DSum(...)) + Nz(textbox1.Value) -
RE: Tạo Form báo cáo
hoat > 05-09-22, 04:54 PM
(03-09-22, 06:45 PM)ongke0711 Đã viết: Vấn đề bạn gặp phải chính là khi textbox không nhận giá trị thì textbox đó sẽ là Null và khi là Null thì nó cộng trừ nhân chia với bất cứu số nào đều bằng Null. Do đó bạn phải khử giá trị Null tức biến Null thành 0 thì khi đó mới tính toán được. Access có cái hàm hay đó là Nz(). Bạn ngâm cứu dùng hàm này đi.
Vd: a = Nz(DSum(...)) + Nz(textbox1.Value)
Cảm ơn ongke0711, mình đã làm được.
Cho mình hỏi thêm: chỗ loại báo cáo mình có 2 lựa chọn: Theo Nam và Theo Du An.
Mình muốn khi mình thay đổi giữa 2 lựa chọn này thì dữ liệu trong các text box đã nhập sẽ clease hết để trống. Muốn như vậy mình dùng câu lệnh gì ? -
RE: Tạo Form báo cáo
tranthanhan1962 > 05-09-22, 08:44 PM
(05-09-22, 04:54 PM)hoat Đã viết: Cảm ơn ongke0711, mình đã làm được.
Tôi có một phương pháp xử lý trong trường hợp của bạn. Thường trong trường hợp này tôi sẽ tao 1 table (theo như yeu cầu của bạn table này chỉ cần 1 record) tôi sẽ viết lệnh cập nhật giá trị các field (sẽ đưa ra textbox). Mỗi khi chạy lệnh update record tùy theo yêu cầu (bao nhiêu yêu cầu cũng được nhưng ở đây bạn chỉ có 2). Khi xử lý bạn xóa record cũ tạo yêu cầu để update record mới. Các textbox chỉ hiển thị giá trị record. Nz của ongke0711 giới thiệu là hàm đặt biệt nó sẽ chuyển các giá trị không phải là số về 0
Cho mình hỏi thêm: chỗ loại báo cáo mình có 2 lựa chọn: Theo Nam và Theo Du An.
Mình muốn khi mình thay đổi giữa 2 lựa chọn này thì dữ liệu trong các text box đã nhập sẽ clease hết để trống. Muốn như vậy mình dùng câu lệnh gì ? -
RE: Tạo Form báo cáo
hoat > 05-09-22, 10:40 PM
(05-09-22, 08:44 PM)tranthanhan1962 Đã viết:
(05-09-22, 04:54 PM)hoat Đã viết: Cảm ơn ongke0711, mình đã làm được.
Tôi có một phương pháp xử lý trong trường hợp của bạn. Thường trong trường hợp này tôi sẽ tao 1 table (theo như yeu cầu của bạn table này chỉ cần 1 record) tôi sẽ viết lệnh cập nhật giá trị các field (sẽ đưa ra textbox). Mỗi khi chạy lệnh update record tùy theo yêu cầu (bao nhiêu yêu cầu cũng được nhưng ở đây bạn chỉ có 2). Khi xử lý bạn xóa record cũ tạo yêu cầu để update record mới. Các textbox chỉ hiển thị giá trị record. Nz của ongke0711 giới thiệu là hàm đặt biệt nó sẽ chuyển các giá trị không phải là số về 0
Cho mình hỏi thêm: chỗ loại báo cáo mình có 2 lựa chọn: Theo Nam và Theo Du An.
Mình muốn khi mình thay đổi giữa 2 lựa chọn này thì dữ liệu trong các text box đã nhập sẽ clease hết để trống. Muốn như vậy mình dùng câu lệnh gì ?
Cảm ơn bác tranthanhan1962 đã hướng dẫn, do không muốn tạo thêm table nên em đã thử dùng cách này và cũng dạt được điều mình muốn.
Private Sub Comboloaicao_AfterUpdate()
txtDoanhthuhopdong = Nz("")
txtDoanhthuhopdongquy1 = Nz("")
txtDoanhthuhopdongquy2 = Nz("")
txtDoanhthuhopdongquy3 = Nz("")
txtDoanhthuhopdongquy4 = Nz("")
txtChiphimuahang = Nz("")
txtChiphimuahangquy1 = Nz("")
txtChiphimuahangquy2 = Nz("")
txtChiphimuahangquy3 = Nz("")
txtChiphimuahangquy4 = Nz("")
txtChiphinhancong = Nz("")
txtChiphinhancongquy1 = Nz("")
txtChiphinhancongquy2 = Nz("")
txtChiphinhancongquy3 = Nz("")
txtChiphinhancongquy4 = Nz("")
txtChiphithauphu = Nz("")
txtChiphithauphuquy1 = Nz("")
txtChiphithauphuquy2 = Nz("")
txtChiphithauphuquy3 = Nz("")
txtChiphithauphuquy4 = Nz("")
txtChiphikhac = Nz("")
txtChiphikhacquy1 = Nz("")
txtChiphikhacquy2 = Nz("")
txtChiphikhacquy3 = Nz("")
txtChiphikhacquy4 = Nz("")
txtChiphiquanly = Nz("")
txtChiphiquanlyquy1 = Nz("")
txtChiphiquanlyquy2 = Nz("")
txtChiphiquanlyquy3 = Nz("")
txtChiphiquanlyquy4 = Nz("")
txtHieuquaduan = Nz("")
txtHieuquaduanquy1 = Nz("")
txtHieuquaduanquy2 = Nz("")
txtHieuquaduanquy3 = Nz("")
txtHieuquaduanquy4 = Nz("")
End Sub