Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Nhờ giúp đở code tự động tăng số phiếu
#1
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
Chữ ký của xiketuan Xin chào, mình là xiketuan, Tham gia http://thuthuataccess.com/forum từ ngày 22-12 -11.
Reply
Những người đã cảm ơn
#2
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.
Chữ ký của hoacoxuan Xin chào, mình là hoacoxuan, Tham gia http://thuthuataccess.com/forum từ ngày 11-05 -12.
Reply
Những người đã cảm ơn
#3
thanks bạn! mình đã giải quyết xong cái số phiếu tăng. theo code.
Chữ ký của xiketuan Xin chào, mình là xiketuan, Tham gia http://thuthuataccess.com/forum từ ngày 22-12 -11.
Reply
Những người đã cảm ơn
#4
(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:
Mã PHP:
Private Sub Cboloaiphieu_AfterUpdate()
    
    
Dim sPhieu As StringDim 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 0sPhieu Format(so"001"), sPhieu Format(so 1"000"))
        
Txtma.Value Txtsophieu.Value Day(Txtngay.Value) & Month(Txtngay.Value) & Year(Txtngay.Value)
     
End Sub 
Bạn xem thêm file nhé.


File đính kèm
.zip   SO phieu THU-CHI.zip (Kích cỡ: 34.39 KB / Tải về: 105)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Nguyendinhthanh , xiketuan , haquocquan
#5
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]
Chữ ký của xiketuan Xin chào, mình là xiketuan, Tham gia http://thuthuataccess.com/forum từ ngày 22-12 -11.
Reply
Những người đã cảm ơn
#6
(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:
Mã PHP:
Private Sub Cboloaiphieu_AfterUpdate()
    
    
Dim sPhieu As StringDim 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 0sPhieu Format(so"001"), sPhieu Format(so 1"000"))
        
Txtma.Value Txtsophieu.Value Day(Txtngay.Value) & Month(Txtngay.Value) & Year(Txtngay.Value)
     
End Sub 
Bạn xem thêm file nhé.

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é
Chữ ký của toniluu 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
bạn tham khảo các topic này
http://thuthuataccess.com/forum/thread-127.html
http://thuthuataccess.com/forum/thread-122.html
http://thuthuataccess.com/forum/thread-305.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn domfootwear
#8
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
Chữ ký của toniluu 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
  Nên khởi động ứng dụng như thế nào cho hiệu quả? lehongduc 0 67 16-11-17, 10:01 AM
Bài mới nhất: lehongduc
  Quên pass code bảo vệ vba thanhhau828 4 405 09-09-17, 05:05 PM
Bài mới nhất: thanhhau828
  Xin giúp liên kết đường dẫn trong access audition 14 6,209 11-05-17, 11:50 AM
Bài mới nhất: cpucloi
  Không xem được report phiếu nhập? ChiMai 8 613 21-03-17, 06:09 PM
Bài mới nhất: ChiMai
  Hàm tạo số phiếu tự động khongcanbiet486 12 1,244 04-02-17, 03:04 PM
Bài mới nhất: chuvoicon

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ơ