Tùy chọn
Nhờ giúp đở code tự động tăng số phiếu
- Nhờ giúp đở code tự động tăng số phiếu
-
Nhờ giúp đở code tự động tăng số phiếu
xiketuan > 11-05-12, 06:31 PM
MÌnh có 1 csdl phiếu thu & phiếu chi chung trong 1 table. ở trường sophieu mình sẽ viết so phieu tu dong tăng theo hình thức :
phiếu chi : PC001, PC002, v.v...
phiếu thu : PT001, PT002, v.v...
nhưng làm hoài không được tăng theo từng loại phiếu. xin các đại ca chỉ giáo. up cái database lên các huynh giúp dùm. thanks
link tải file csdl -
RE: Nhờ giúp đở code tự động tăng số phiếu
hoacoxuan > 12-05-12, 10:02 AM
Chào bạn, mình hiểu ý của bạn rồi.
Access tự động ưu tiên xắp xếp dữ liệu tăng dần theo trường làm khóa chính. Trường khóa chính của bạn là Ma. Do đó, nó sẽ xắp xếp theo hết số rồi đến chữ.
Bạn làm như sau sẽ được: Bạn View Table lên. Chọn nguyên trường SoPhieu, rồi chọn xắp xếp tăng dần (nhấp vào chữ A-Z trên thanh công cụ ấy) rồi save lại. Như vậy là xong.
Hy vọng sẽ giúp ích được cho bạn. Trần Duy.
"Nếu bạn muốn tỏa sáng ngày mai, hãy lấp lánh ngay từ hôm nay". Phạm Quang Hưng. -
RE: Nhờ giúp đở code tự động tăng số phiếu
xiketuan > 12-05-12, 10:04 AM
thanks bạn! mình đã giải quyết xong cái số phiếu tăng. theo code. -
RE: Nhờ giúp đở code tự động tăng số phiếu
domfootwear > 12-05-12, 11:13 AM
(11-05-12, 06:31 PM)xiketuan Đã viết: MÌnh có 1 csdl phiếu thu & phiếu chi chung trong 1 table. ở trường sophieu mình sẽ viết so phieu tu dong tăng theo hình thức :
phiếu chi : PC001, PC002, v.v...
phiếu thu : PT001, PT002, v.v...
nhưng làm hoài không được tăng theo từng loại phiếu. xin các đại ca chỉ giáo. up cái database lên các huynh giúp dùm. thanks
link tải file csdl
- Bạn phải dùng hàm Dcount nhé.
- Tôi chỉnh cái TextBox Txtthuchi của bạn thành Label Txtthuchi cho nó đẹp nhé
Code sẽ như sau:
Bạn xem thêm file nhé.Mã PHP:Private Sub Cboloaiphieu_AfterUpdate()
Dim sPhieu As String: Dim so As Integer
sPhieu = IIf(Cboloaiphieu = "THU", "PT", "PC")
Txtthuchi.Caption = " PHI" & ChrW(7870) & "U " & Cboloaiphieu
so = DCount("[loaiphieu] ", "T_THUCHI", "[loaiphieu] =" & "'" & Cboloaiphieu & "'")
Txtsophieu = IIf(so = 0, sPhieu & Format(so, "001"), sPhieu & Format(so + 1, "000"))
Txtma.Value = Txtsophieu.Value & Day(Txtngay.Value) & Month(Txtngay.Value) & Year(Txtngay.Value)
End Sub -
RE: Nhờ giúp đở code tự động tăng số phiếu
xiketuan > 13-05-12, 10:27 PM
cảm ơn bạn domfoottwear rất nhiều, mình đã giải quyết xong.
mình muốn hỏi 1 cái nữa. trong bảng T_THUCHI có các field như : Mã lớp, Mã Khóa nếu mình chọn 1 loại hình thu hay chi mà không có 2 trường này thì khi mình tạo 1 query lấy tất cả đề làm 1 báo cáo report chi tiết thu chi và có thể group theo từng loại mã, có cách nào dùm mình tạo 1 query để lấy tất cả dữ có liên quan trong phần quan hệ, khi trong bảng T_THUCHI không có thể hiện, xin cảm ơn rất nhiều
![[Hình: d8eb2d4e0fefb4c71d6946ba0aa09fc5_4469084...r01may.jpg]](http://nm9.upanh.com/b6.s27.d2/d8eb2d4e0fefb4c71d6946ba0aa09fc5_44690849.screenhunter01may.jpg)
-
RE: Nhờ giúp đở code tự động tăng số phiếu
toniluu > 21-05-12, 04:52 PM
(12-05-12, 11:13 AM)domfootwear Đã viết:
(11-05-12, 06:31 PM)xiketuan Đã viết: MÌnh có 1 csdl phiếu thu & phiếu chi chung trong 1 table. ở trường sophieu mình sẽ viết so phieu tu dong tăng theo hình thức :
phiếu chi : PC001, PC002, v.v...
phiếu thu : PT001, PT002, v.v...
nhưng làm hoài không được tăng theo từng loại phiếu. xin các đại ca chỉ giáo. up cái database lên các huynh giúp dùm. thanks
link tải file csdl
- Bạn phải dùng hàm Dcount nhé.
- Tôi chỉnh cái TextBox Txtthuchi của bạn thành Label Txtthuchi cho nó đẹp nhé
Code sẽ như sau:
Bạn xem thêm file nhé.Mã PHP:Private Sub Cboloaiphieu_AfterUpdate()
Dim sPhieu As String: Dim so As Integer
sPhieu = IIf(Cboloaiphieu = "THU", "PT", "PC")
Txtthuchi.Caption = " PHI" & ChrW(7870) & "U " & Cboloaiphieu
so = DCount("[loaiphieu] ", "T_THUCHI", "[loaiphieu] =" & "'" & Cboloaiphieu & "'")
Txtsophieu = IIf(so = 0, sPhieu & Format(so, "001"), sPhieu & Format(so + 1, "000"))
Txtma.Value = Txtsophieu.Value & Day(Txtngay.Value) & Month(Txtngay.Value) & Year(Txtngay.Value)
End Sub
Cảm ơn bạn vì mình cũng có yêu cầu tương tự như vậy. Ngoài ra mình muốn số phiếu sẽ trở về 001 khi bắt đầu một năm mới. Bạn vui lòng giúp mình nhé -
RE: Nhờ giúp đở code tự động tăng số phiếu
Noname > 21-05-12, 05:41 PM
-
RE: Nhờ giúp đở code tự động tăng số phiếu
toniluu > 22-05-12, 05:05 PM
Noname ơi
Mình muốn PT và PC cùng nằm trong 1 table như VD này. Số PT tăng theo PT: PT001, PT002...; số PC tăng theo PC. Đồng thời sẽ reset lại từ 1 khi chuyển sang 1 năm mới