• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

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

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] [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}

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

• 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 ạ.
• Bài trước Bài tiếp