• Trang chủ click to expand contents 

  • Tạo số phiếu tăng theo mẫu : date+STT

  • RE: Tạo số phiếu tăng theo mẫu : date+STT

    hoat > 27-06-21, 10:20 AM

    Các bạn cho mình hỏi mấy link tải file về sao ko tải được vậy

    Cảm ơn mọi người.

  • RE: Tạo số phiếu tăng theo mẫu : date+STT

    ongke0711 > 27-06-21, 11:43 AM

    (27-06-21, 10:20 AM)hoat Đã viết: Các bạn cho mình hỏi mấy link tải file về sao ko tải được vậy

    Cảm ơn mọi người.

    Bạn download file trong bài #5.

  • RE: Tạo số phiếu tăng theo mẫu : date+STT

    DooHoaangPhuuc > 27-02-24, 09:14 AM

    Do link không còn tồn tại
    Các Bác, các Chú có sẵn file demo cho cháu xin . 
    Xin gởi cho cháu theo địa chỉ

    Mail Yahoo : michealdon54@yahoo.com

    Cháu cản ơn rất nhiều.
    DooHoaangPhuuc

  • RE: Tạo số phiếu tăng theo mẫu : date+STT

    minhctv > 22-07-24, 08:11 PM

    em xin file demo với ạ, em cảm ơn nhiều ạ
    minh9692@gmail.com

  • RE: Tạo số phiếu tăng theo mẫu : date+STT

    minhctv > 23-07-24, 12:54 AM

    (26-08-10, 08:32 PM)Noname Đã viết: Hôm trước mình giới thiệu thủ thuật tạo số phiếu tăng tự động theo đoạn code của anh phatnq2002  trang Dân Kế Toán
    Tạo số chứng từ tăng dần và reset mỗi tháng

    Hôm nay, mình giới thiệu đoạn code tạo số chứng từ tăng dần theo mẫu dạng: dd/mm/yy + số TT
    Để số thứ tự tự động tăng dần để trường STT là Text. Đồng thời ta thêm 1 trường couter kiểu Number - Integer để đếm số phiếu trong ngày. Trường này sẽ tăng khi bạn nhập phiếu mới với giá trị = max giá trị ngày đó.
    Trường STT của bạn sẽ được set giá trị = Date & "-" & format(Couter,"000")

    * Chú ý: để biết 1 record có phải được thêm mới hay không, bạn xét ở sự kiện Form_Current() của form. Nếu STT của bạn là null thì nó là record mới.

       
    Mã:
    Private Sub Form_Current()
        'Kiểm Tra số thứ tự, nếu Null thì đó là recodr mới
        If IsNull(Me.STT) Then
        STT.Value = SoTT
        End If
        End Sub

        Function SoTT() As String
        Dim so As Integer
        so = Nz(DMax("[Couter]", "BangChi", "[Date]= date()"))
        Couter.Value = so + 1
        SoTT = Date & "-" & Format(Couter, "000")
        End Function

    Mời các bạn xem demo về xem:
    DownLoad
    cho em xin lại demo với ạ, với cả em đnag thắc mắc dòng couter.value = so+1 bị lỗi object required  ạ. em cảm ơn ạ

  • RE: Tạo số phiếu tăng theo mẫu : date+STT

    ongke0711 > 23-07-24, 11:49 PM

    (23-07-24, 12:54 AM)minhctv Đã viết: ...
    Đồng thời ta thêm 1 trường couter kiểu Number - Integer để đếm số phiếu trong ngày. Trường này sẽ tăng khi bạn nhập phiếu mới với giá trị = max giá trị ngày đó.
    Trường STT của bạn sẽ được set giá trị = Date & "-" & format(Couter,"000")


    cho em xin lại demo với ạ, với cả em đnag thắc mắc dòng couter.value = so+1 bị lỗi object required  ạ. em cảm ơn ạ

    Chắc là bạn thiết kế thiếu cột (Field) [Counter] nên báo lỗi.