Đá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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 217 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 254 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  Lỗi Access 2003 bị đóng băng theo hàng. imt0osexy 7 476 18-06-16, 11:19 AM
Bài mới nhất: maidinhdan
  [Hỏi] Cách tạo sinh số tự động trong khoảng số cho trước nguyenhungcuong 12 356 09-06-16, 09:06 AM
Bài mới nhất: nguyenhungcuong

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ơ