(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(SoMax, 4)  ' Lay STT 4 ky tu cuoi
s = Val(SoMax)              ' Chuyen chuoi thanh so
   If IsNull(s) Then
       SoTD = 1
   Else
       SoTD = s + 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

cho em xin bảng k khóa a
mail: longkd_bvct@yahoo.com.vn

Đã gửi longkd_bvct@yahoo.com.vn,kimduyenduoc@gmail.com
ngày: 20:03, 15 thg 6, 2021

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

thank you !

(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(SoMax, 4)  ' Lay STT 4 ky tu cuoi
s = Val(SoMax)              ' Chuyen chuoi thanh so
   If IsNull(s) Then
       SoTD = 1
   Else
       SoTD = s + 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.

Bác Dân cho em xin file áp dụng.
Xin cảm ơn.
Email: hoduybinh.ydk36@gmail.com

Bác cho em xin code để ngâm cứu ạ
Email: d.dtam2802@gmail.com
E cám ơn ạ

Đã gửi 3 mail trên

(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(SoMax, 4)  ' Lay STT 4 ky tu cuoi
s = Val(SoMax)              ' Chuyen chuoi thanh so
   If IsNull(s) Then
       SoTD = 1
   Else
       SoTD = s + 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!!!

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 ạ.