• [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    longkd_bvct@yahoo.com.vn > 19-12-19, 05:17 PM

    (30-05-17, 11:55 PM)maidinhdan Đã viết: [Video+Demo] Hai cách Tạo Số tăng dần và Reset mỗi tháng, hoặc mỗi ngày, hoặc mỗi năm.

    Khả năng ứng dụng: để tạo số thứ tự tăng dần và tự động quay về 1 khi qua tháng mới.

    Trong video cũng có hướng dẫn để tùy biến chỉnh reset theo ngày hoặc reset mỗi năm 1 lần

    Demo Video

    Code hàm:
    Mã PHP:
    '---------------------------------------------------------------------------------------
    Procedure LaySTT2
    ' Author    : HenDan
    Date      5/30/2017
    ' Purpose   : So thu tu tang dan reset moi thang, Khong dua vao query ma truy van truc tiep bang ham Dlast
    '
    ---------------------------------------------------------------------------------------
    ' Cu phap: LaySTT2("tblPhieuNhap", "ID", "X")

    Function LaySTT2(TenTable As String, TenCotSTT As String, KyTyCanChen As String) As String
    On Error Resume Next
    Dim SoTD As Double, s As Double
    Dim SoMax As String, SoNext As String
    Dim yy As String, mm As String, dd As String
    yy = Format(Year(Date), "0000")
    mm = Format(Month(Date), "00")
    dd = Format(Day(Date), "00")

    '
    SoMax DLast("[ID]""[tblPHIEUNHAP]""Mid([ID], 2, 6)='" yy mm "'" ' Lay mau tin cuoi cung duoc tao
    SoMax = DLast(TenCotSTT, TenTable, "Mid([" & TenCotSTT & "], 2, 6)='" & yy & mm & "'")  ' 
    Lay mau tin cuoi cung duoc tao

    SoMax 
    Right(SoMax4 ' Lay STT 4 ky tu cuoi
    s = Val(SoMax)              ' 
    Chuyen chuoi thanh so
       If IsNull
    (sThen
           SoTD 
    1
       Else
           SoTD 
    1
       End 
    If
    SoNext Format(SoTD"0000" ' Dinh dang kieu 4 ky tu de hien thi, Nhu vay So thu tu lon nhat se la 9999

       LaySTT2 = KyTyCanChen & yy & mm & dd & SoNext
    End Function 

    Trong video có đoạn : SoTD = "0001" xin đính chính là SoTD = 1 ( Dành cho lần đâu tiên khi chạy )

    Cần nghiên cứu trên Demo xin để lại Email để nhận bản không khóa.
    Thân mến
    Cho em xin demo không khóa ạ. longkd_bvct@yahoo.com.vn
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    longkd_bvct@yahoo.com.vn > 13-05-21, 04:35 PM

    cho em xin bảng k khóa a
    mail: longkd_bvct@yahoo.com.vn
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 15-06-21, 09:04 PM

    Đã gửi longkd_bvct@yahoo.com.vn,kimduyenduoc@gmail.com
    ngày: 20:03, 15 thg 6, 2021
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    hoat > 30-06-21, 03:11 PM

    cho mình xin bản không khoá và video hướng dẫn qua mail: nqhoat@gmail.com nha

    thank you !
  • RE: [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

    hoat > 31-07-21, 11:26 AM

    (30-05-17, 11:55 PM)maidinhdan Đã viết: [Video+Demo] Hai cách Tạo Số tăng dần và Reset mỗi tháng, hoặc mỗi ngày, hoặc mỗi năm.

    Khả năng ứng dụng: để tạo số thứ tự tăng dần và tự động quay về 1 khi qua tháng mới.

    Trong video cũng có hướng dẫn để tùy biến chỉnh reset theo ngày hoặc reset mỗi năm 1 lần

    Demo Video

    Code hàm:
    Mã PHP:
    '---------------------------------------------------------------------------------------
    Procedure LaySTT2
    ' Author    : HenDan
    Date      5/30/2017
    ' Purpose   : So thu tu tang dan reset moi thang, Khong dua vao query ma truy van truc tiep bang ham Dlast
    '
    ---------------------------------------------------------------------------------------
    ' Cu phap: LaySTT2("tblPhieuNhap", "ID", "X")

    Function LaySTT2(TenTable As String, TenCotSTT As String, KyTyCanChen As String) As String
    On Error Resume Next
    Dim SoTD As Double, s As Double
    Dim SoMax As String, SoNext As String
    Dim yy As String, mm As String, dd As String
    yy = Format(Year(Date), "0000")
    mm = Format(Month(Date), "00")
    dd = Format(Day(Date), "00")

    '
    SoMax DLast("[ID]""[tblPHIEUNHAP]""Mid([ID], 2, 6)='" yy mm "'" ' Lay mau tin cuoi cung duoc tao
    SoMax = DLast(TenCotSTT, TenTable, "Mid([" & TenCotSTT & "], 2, 6)='" & yy & mm & "'")  ' 
    Lay mau tin cuoi cung duoc tao

    SoMax 
    Right(SoMax4 ' Lay STT 4 ky tu cuoi
    s = Val(SoMax)              ' 
    Chuyen chuoi thanh so
       If IsNull
    (sThen
           SoTD 
    1
       Else
           SoTD 
    1
       End 
    If
    SoNext Format(SoTD"0000" ' Dinh dang kieu 4 ky tu de hien thi, Nhu vay So thu tu lon nhat se la 9999

       LaySTT2 = KyTyCanChen & yy & mm & dd & SoNext
    End Function 

    Trong video có đoạn : SoTD = "0001" xin đính chính là SoTD = 1 ( Dành cho lần đâu tiên khi chạy )

    Cần nghiên cứu trên Demo xin để lại Email để nhận bản không khóa.
    Thân mến

    Em đang gặp phải vấn đề này, anh cho em xin bản demo không khoá để nghiên cứu được không ạ, email: nqhoat@gmail.com
    Cảm ơn anh nhiều.
  • RE: [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

    Hồ Bình > 02-12-21, 04:30 PM

    Bác Dân cho em xin file áp dụng.
    Xin cảm ơn.
    Email: hoduybinh.ydk36@gmail.com
  • RE: [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

    doandinhtam > 13-01-22, 05:46 AM

    Bác cho em xin code để ngâm cứu ạ
    Email: d.dtam2802@gmail.com
    E cám ơn ạ
  • RE: [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

    maidinhdan > 16-04-22, 12:35 AM

    Đã gửi 3 mail trên
  • RE: [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

    techcolijsc > 29-07-22, 03:20 PM

    (30-05-17, 11:55 PM)maidinhdan Đã viết: [Video+Demo] Hai cách Tạo Số tăng dần và Reset mỗi tháng, hoặc mỗi ngày, hoặc mỗi năm.

    Khả năng ứng dụng: để tạo số thứ tự tăng dần và tự động quay về 1 khi qua tháng mới.

    Trong video cũng có hướng dẫn để tùy biến chỉnh reset theo ngày hoặc reset mỗi năm 1 lần

    Demo Video

    Code hàm:
    Mã PHP:
    '---------------------------------------------------------------------------------------
    Procedure LaySTT2
    ' Author    : HenDan
    Date      5/30/2017
    ' Purpose   : So thu tu tang dan reset moi thang, Khong dua vao query ma truy van truc tiep bang ham Dlast
    '
    ---------------------------------------------------------------------------------------
    ' Cu phap: LaySTT2("tblPhieuNhap", "ID", "X")

    Function LaySTT2(TenTable As String, TenCotSTT As String, KyTyCanChen As String) As String
    On Error Resume Next
    Dim SoTD As Double, s As Double
    Dim SoMax As String, SoNext As String
    Dim yy As String, mm As String, dd As String
    yy = Format(Year(Date), "0000")
    mm = Format(Month(Date), "00")
    dd = Format(Day(Date), "00")

    '
    SoMax DLast("[ID]""[tblPHIEUNHAP]""Mid([ID], 2, 6)='" yy mm "'" ' Lay mau tin cuoi cung duoc tao
    SoMax = DLast(TenCotSTT, TenTable, "Mid([" & TenCotSTT & "], 2, 6)='" & yy & mm & "'")  ' 
    Lay mau tin cuoi cung duoc tao

    SoMax 
    Right(SoMax4 ' Lay STT 4 ky tu cuoi
    s = Val(SoMax)              ' 
    Chuyen chuoi thanh so
       If IsNull
    (sThen
           SoTD 
    1
       Else
           SoTD 
    1
       End 
    If
    SoNext Format(SoTD"0000" ' Dinh dang kieu 4 ky tu de hien thi, Nhu vay So thu tu lon nhat se la 9999

       LaySTT2 = KyTyCanChen & yy & mm & dd & SoNext
    End Function 

    Trong video có đoạn : SoTD = "0001" xin đính chính là SoTD = 1 ( Dành cho lần đâu tiên khi chạy )

    Cần nghiên cứu trên Demo xin để lại Email để nhận bản không khóa.
    Thân mến

    Bác gửi em với ạ, em mày mò cả tháng không làm được cái mã đơn hàng nữa ạ
    hoang.veevn@gmail.com
    Cám ơn bác nhiều!!!
  • RE: [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

    hoangdieuthuy82 > 08-03-23, 11:29 PM

    Thân chào mọi người. 
    Mình cũng muốn xin bản demo vào email hoangdieuthuy82@gmail để châm cứu ạ. Với lại nếu được xin tác giả up lại video để dễ hình dung ạ.