Tùy chọn
Form nhập liệu và báo cáo
- Form nhập liệu và báo cáo
-
Form nhập liệu và báo cáo
hoat > 01-07-22, 10:19 AM
Xin chào toàn thể anh chị em.
Mình tạo file acces có table là chiphiduan có các cột: STT, Ngaychi, Machiphi, Duan, Sohoadon, Sotien, Nam, Quy, Thang.
Mình minh tạo 2 form là form để nhập liệu và báo cáo như sau:
- Form nhập liệu có các texbox: Ngaychi, Machiphi, Duan, Sohoadon, Sotien
Mình muốn viết sự kiện apterupdate cho texbox Duan để Machiphi tự phát sinh:
Machiphi = Duan & Số lần phát sinh chi phí của dự án.
VD: Dự án 0001.22 phát dinh chi phí lần đầu tiên thì Machiphi là 0001.22-CP001
Dự án 0001.22 phát dinh chi phí lần thứ 2 thì Machiphi là 0001.22-CP002
- Form báo cáo làm theo dạng main form và sub form.
Trên main form có 2 text box để lọc danh sách dưới sub form là texbox1 dùng để nhập Năm báo cáo, textbox2 dùng để nhập Tháng hoặc Quý cần báo cáo.
VD: texbox1 nhập 2021, texbox2 để trống thì sub form hiển thị danh sách các chi phí phát sinh của năm 2021
texbox1 nhập 2021, texbox2 nhập Quý 1 thì sub form hiển thị danh sách các chi phí phát sinh của Quý 1 năm 2021.
Rất mong nhận được hướng dẫn của toàn thể anh chị em.
Trân trọng cảm ơn. -
RE: Form nhập liệu và báo cáo
AnNguyen > 01-07-22, 12:06 PM
(01-07-22, 10:19 AM)hoat Đã viết: Xin chào toàn thể anh chị em.
Ý 1 của bạn như này nhé
Mình tạo file acces có table là chiphiduan có các cột: STT, Ngaychi, Machiphi, Duan, Sohoadon, Sotien, Nam, Quy, Thang.
Mình minh tạo 2 form là form để nhập liệu và báo cáo như sau:
- Form nhập liệu có các texbox: Ngaychi, Machiphi, Duan, Sohoadon, Sotien
Mình muốn viết sự kiện apterupdate cho texbox Duan để Machiphi tự phát sinh:
Machiphi = Duan & Số lần phát sinh chi phí của dự án.
VD: Dự án 0001.22 phát dinh chi phí lần đầu tiên thì Machiphi là 0001.22-CP001
Dự án 0001.22 phát dinh chi phí lần thứ 2 thì Machiphi là 0001.22-CP002
- Form báo cáo làm theo dạng main form và sub form.
Trên main form có 2 text box để lọc danh sách dưới sub form là texbox1 dùng để nhập Năm báo cáo, textbox2 dùng để nhập Tháng hoặc Quý cần báo cáo.
VD: texbox1 nhập 2021, texbox2 để trống thì sub form hiển thị danh sách các chi phí phát sinh của năm 2021
texbox1 nhập 2021, texbox2 nhập Quý 1 thì sub form hiển thị danh sách các chi phí phát sinh của Quý 1 năm 2021.
Rất mong nhận được hướng dẫn của toàn thể anh chị em.
Trân trọng cảm ơn.
T gửi luôn demo cho cả 2 ý nhéMã:Private Sub txtDuAn_AfterUpdate()
If txtDuAn <> "" Then
Dim soDuAn As Integer
soDuAn = DCount("MaChiPhi", "tbChiPhi")
If soDuAn = 0 Then soDuAn = 1
txtMaChiPhi = txtDuAn & "-" & Format(soDuAn, "000")
End If
End Sub
demo -
RE: Form nhập liệu và báo cáo
hoat > 02-07-22, 09:51 AM
[/quote]
Ý 1 của bạn như này nhé
T gửi luôn demo cho cả 2 ý nhéMã:Private Sub txtDuAn_AfterUpdate()
If txtDuAn <> "" Then
Dim soDuAn As Integer
soDuAn = DCount("MaChiPhi", "tbChiPhi")
If soDuAn = 0 Then soDuAn = 1
txtMaChiPhi = txtDuAn & "-" & Format(soDuAn, "000")
End If
End Sub
demo
[/quote]
Cảm ơn AnNguyen.
File demo bạn gủi rất hay, bạn có thể cho mình xin code để nghiên cứu áp dụng cho file của mình không. Bạn làm cách nào để khóa không cho click chuột phải trên file ? hướng dẫn mình được không ?
Trân trọng cảm ơn ! -
RE: Form nhập liệu và báo cáo
AnNguyen > 03-07-22, 12:58 PM
Bạn phải xuất nó sang định dạng .accde thì không thể chuột phải nhé. Save as nó sang nhé -
RE: Form nhập liệu và báo cáo
hoat > 09-07-22, 12:09 PM
T gửi luôn demo cho cả 2 ý nhé
demo
[/quote]
AnNguyen ơi làm sao để xem đc file demo ở dạng design view và xem được code VBA ? Hướng dẫn mình với được không.
Trân trọng cảm ơn !
[/quote]
![[Hình: hvQs5gT.png]](https://i.imgur.com/hvQs5gT.png)