putin > 07-06-19, 12:09 PM
tracanhtam > 01-07-19, 09:32 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.Anh cho tôi xin Demo_So phieu tang dan Reset moi thang, xin cám ơn, email: lngoctrac@gmail.com
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
maidinhdan > 06-07-19, 03:10 PM
(01-07-19, 09:32 AM)tracanhtam Đã viết: Anh cho tôi xin Demo_So phieu tang dan Reset moi thang, xin cám ơn, email: lngoctrac@gmail.com
(07-06-19, 12:09 PM)putin Đã viết: cho em xin file SoTT tang dan+Reset moingay(2).zip bản không khóa. Cảm ơn.
daituong103@gmail.com
conmeo > 06-07-19, 11:08 PM
maidinhdan > 11-09-19, 11:22 PM
thanhtruong > 30-10-19, 03:06 PM
thanhtruong > 30-10-19, 03:08 PM
Dim so As Integer
so = Nz(DMax("[Couter]", "NhapMua_Main", "year([ngaythangnam])= year(date())"))
Couter.Value = so + 1
SoTT = Format(Couter, "00")ongke0711 > 30-10-19, 03:18 PM