• 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:
    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é.
  • 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]
  • 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:
    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é
  • 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