|
|
Viết bởi: ongke0711 14-01-22, 03:14 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (4) |
![[Hình: LuckyDraw_theoTen.gif]](https://s10.gifyu.com/images/LuckyDraw_theoTen.gif)
|
|
Viết bởi: dotrung 09-01-22, 11:19 PM Chuyên mục: Forms - Bài trả lời (1) |

|
|
Viết bởi: giotnang287 02-01-22, 04:17 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (3) |
|
|
Viết bởi: thanhtruong 02-01-22, 10:36 AM Chuyên mục: Forms - Bài trả lời (8) |
Private Function fcTaoMaBN() As Long
Dim lngMaBN_Max As Long
Dim lngMaBN_New As Long
Dim datNgay_Max As Date
On Error GoTo ErrorHandler
lngMaBN_Max = Nz(DMax("[maso]", "tiepdon"), 0)
If lngMaBN_Max <> 0 Then
datNgay_Max = Format(Mid(lngMaBN_Max, 5, 2) & "/" & Mid(lngMaBN_Max, 3, 2) & "/" & Left(lngMaBN_Max, 2), "dd/mm/yy")
Debug.Print datNgay_Max
If datNgay_Max >= Date Then
If datNgay_Max > Date Then
MsgBox "Ngay thang tren he thong khong phu hop, vui long lien he Admin ", vbCritical, "Luu y"
End If
lngMaBN_New = lngMaBN_Max + 1
Else
lngMaBN_New = Val(Format(Date, "yymmdd") & "0000") + 1
End If
Else
lngMaBN_New = Val(Format(Date, "yymmdd") & "0000") + 1
End If
fcTaoMaBN = lngMaBN_New
Exit_ErrorHandler:
Exit Function
ErrorHandler:
MsgBox "Err Number: " & err.Number & vbCrLf & err.description, , "loi tao ma"
Resume Exit_ErrorHandler
End Function
|
|
Viết bởi: Noname 28-12-21, 03:24 PM Chuyên mục: Ms Excel - Không có hồi đáp |
![[Hình: hKe1UZ2.png]](https://i.imgur.com/hKe1UZ2.png)
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 631 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |