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

    maidinhdan > 30-05-17, 11:55 PM

    [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
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    vulhu06 > 31-05-17, 12:05 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
    Lại có Demo hay của a nữa rồi. Thanks
    Vui lòng gửi bản không khóa để nghiên cứa ứng dụng vunguyenhoanglhu@gmail.com
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 31-05-17, 02:08 PM

    (31-05-17, 12:05 PM)vulhu06 Đã viết: Lại có Demo hay của a nữa rồi. Thanks
    Vui lòng gửi bản không khóa để nghiên cứa ứng dụng vunguyenhoanglhu@gmail.com

    Đã gửi
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    jeck09nt > 31-05-17, 06:29 PM

    Nhờ [b]maidinhdan[/b]  gửi giúp qua mail: jeck09nt@gmail.com
    Xin cám ơn.
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 31-05-17, 09:59 PM

    (31-05-17, 06:29 PM)jeck09nt Đã viết: Nhờ [b]maidinhdan[/b]  gửi giúp qua mail: jeck09nt@gmail.com
    Xin cám ơn.

    Đã gửi
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    huuduy.duy > 02-06-17, 08:38 AM

    Cho em xin 1 bản vô mail huuduy.duy@gmail.com nhe anh
    Cám ơn anh nhiều
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 03-06-17, 01:35 AM

    (02-06-17, 08:38 AM)huuduy.duy Đã viết: Cho em xin 1 bản vô mail huuduy.duy@gmail.com nhe anh
    Cám ơn anh nhiều

    Đã gửi
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    hugox03 > 03-06-17, 11:50 AM

    gởi cho mình 1 bản với huycuong1668@gmail.com
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    tronghieu9792 > 04-06-17, 03:27 AM

    Cho xin bản không khóa với anh. Mail thongthaonguyenngoc@gmail.com
  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    tieu_ngao > 04-06-17, 09:43 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

    Hay quá Dân ơi, ko cần dùng  query như trước nữa. Mình down về để dành mai mốt chuyển qua code này cho ứng dụng của mình. Dân gửi mail cho mình nha.!