thaomobilecntv > 09-12-21, 05:43 PM
ongke0711 > 09-12-21, 07:15 PM
(09-12-21, 05:43 PM)thaomobilecntv Đã viết: Xin Hướng dẫn tạo một trường đánh số tự động có kèm Tiền tố. Ví dụ: Trường MaPhieu dữ liệu sẽ tự điền PBH-000001, PBH-00000,....
Function TaoSoPBH() As String
Dim rsStt As DAO.Recordset
Dim sSQL As String
Dim Stt As Long
sSQL = "SELECT Max(CLng(Right(SoPBH,6))) As SttMax FROM tblPhieuXuat"
Set rsStt = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset)
If IsNull(rsStt!SttMax) Then
Stt = 1
Else
Stt = rsStt!SttMax + 1
End If
TaoSoPBH = "PBH-" & Right$("000000" & Stt, 6)
rsStt.Close
Set rsStt = Nothing
End Function
tranthanhan1962 > 10-12-21, 12:22 AM
ongke0711 > 10-12-21, 07:32 AM