-
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
putin > 07-06-19, 12:09 PM
-
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
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 -
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
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
Đã gửi
(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
Đã gửi, kể cả bản mỗi tháng -
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
conmeo > 06-07-19, 11:08 PM
Anh cho em xin bản Reset tháng với,
Em cảm ơn
nammeo0101@gmail.com -
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
maidinhdan > 11-09-19, 11:22 PM
-
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
thanhtruong > 30-10-19, 03:06 PM
cho em xin file SoTT tang dan+Reset moingay(2).zip bản không khóa.
Email: kimduyenduoc@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
thanhtruong > 30-10-19, 03:08 PM
Em cũng có làm theo kiểu này, nhưng không biết sửa code như thế nào để mỗi ngày reset lại số 1.
hiện tại mỗi năm nó mới reset lại.
Mã:Dim so As Integer
so = Nz(DMax("[Couter]", "NhapMua_Main", "year([ngaythangnam])= year(date())"))
Couter.Value = so + 1
SoTT = Format(Couter, "00") -
RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
ongke0711 > 30-10-19, 03:18 PM
so = Nz(DMax("[Couter]", "NhapMua_Main", "[ngaythangnam]= date()"))