-
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.
Cho em xin demo không khóa ạ. longkd_bvct@yahoo.com.vn
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 -
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(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. -
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(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!!! -
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 ạ.