Đánh số thứ tự tự động

[ngochuy]

Em cần hàm để đánh mã số cho chương trình quản lý dữ liệu cuả phòng em như sau:
mã số = 2 số cuối của năm - tháng - ngaỳ - stt.
các anh chi giup em caí hàm để đánh mã số tự động với.
khi qua ngày mới thì số thứ tự sẽ bắt đầu từ 1
cảm ơn nhiều

 

[quangpham]

Em cần hàm để đánh mã số cho chương trình quản lý dữ liệu cuả phòng em như sau:
mã số = 2 số cuối của năm - tháng - ngaỳ - stt.
các anh chi giup em caí hàm để đánh mã số tự động với.
khi qua ngày mới thì số thứ tự sẽ bắt đầu từ 1
cảm ơn nhiều

Dim mamax
mamax = DMAX("maso", "bảng", "LEFT(maso, 6) = '" & Format(ngay, "yymmdd") & "'")
If IsNull(mamax) Then
maso = Format(ngay, "yymmdd") & "001"
Else
maso = Format(ngay, "yymmdd") & Right("000" & Val(Right(mamax, 3))+1, 3)
End If