Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu
#1
[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(SoMax4 ' Lay STT 4 ky tu cuoi
s = Val(SoMax)              ' 
Chuyen chuoi thanh so
   If IsNull
(sThen
       SoTD 
1
   Else
       SoTD 
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


File đính kèm
.zip   Demo_So phieu tang dan Reset moi thang(mde).zip (Kích cỡ: 20.83 KB / Tải về: 30)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ongke0711 , vulhu06 , jeck09nt , cawboy , huuduy.duy , tieu_ngao
#2
(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(SoMax4 ' Lay STT 4 ky tu cuoi
s = Val(SoMax)              ' 
Chuyen chuoi thanh so
   If IsNull
(sThen
       SoTD 
1
   Else
       SoTD 
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
Lại có Demo hay của a nữa rồi. Thanks
Vui lòng gửi bản không khóa để nghiên cứa ứng dụng vunguyenhoanglhu@gmail.com
Chữ ký của vulhu06 Xin chào Guest
Reply
Những người đã cảm ơn
#3
(31-05-17, 12:05 PM)vulhu06 Đã viết: Lại có Demo hay của a nữa rồi. Thanks
Vui lòng gửi bản không khóa để nghiên cứa ứng dụng vunguyenhoanglhu@gmail.com

Đã gửi
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Nhờ [b]maidinhdan[/b]  gửi giúp qua mail: jeck09nt@gmail.com
Xin cám ơn.
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
(31-05-17, 06:29 PM)jeck09nt Đã viết: Nhờ [b]maidinhdan[/b]  gửi giúp qua mail: jeck09nt@gmail.com
Xin cám ơn.

Đã gửi
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
Cho em xin 1 bản vô mail huuduy.duy@gmail.com nhe anh
Cám ơn anh nhiều
Chữ ký của huuduy.duy Xin chào, mình là huuduy.duy, Tham gia http://thuthuataccess.com/forum từ ngày 24-06 -13.
ღღღღღTài sản của huuduy.duy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(02-06-17, 08:38 AM)huuduy.duy Đã viết: Cho em xin 1 bản vô mail huuduy.duy@gmail.com nhe anh
Cám ơn anh nhiều

Đã gửi
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy
#8
gởi cho mình 1 bản với huycuong1668@gmail.com
ღღღღღTài sản của hugox03 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Cho xin bản không khóa với anh. Mail thongthaonguyenngoc@gmail.com
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#10
(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(SoMax4 ' Lay STT 4 ky tu cuoi
s = Val(SoMax)              ' 
Chuyen chuoi thanh so
   If IsNull
(sThen
       SoTD 
1
   Else
       SoTD 
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

Hay quá Dân ơi, ko cần dùng  query như trước nữa. Mình down về để dành mai mốt chuyển qua code này cho ứng dụng của mình. Dân gửi mail cho mình nha.!
Chữ ký của tieu_ngao Xin chào, mình là tieu_ngao, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Xin cách xổ list kết quả khi đánh chữ trong form datasheet tien1505 10 479 02-07-17, 01:23 PM
Bài mới nhất: tranthanhan1962
  Tạo số phiếu tăng theo mẫu : date+STT Noname 9 4,373 24-05-17, 10:23 AM
Bài mới nhất: chuvoicon
  [Help] Hỏi về cách lưu dư liệu từ bảng vba vào file excell theo mong muốn HoangManh 5 438 19-05-17, 04:27 PM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Mọi phiên bản Access) maidinhdan 15 3,753 31-03-17, 12:20 AM
Bài mới nhất: kieu manh
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 2,296 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ