จากโค้ดด้านล่าง เป็นโค้ดรัน Auto Number แต่พอผมรันถึงลำดับที่ 8 ปรากฎว่าพอกดรันใหม่ ระบบดันกลับมารัน 1 ใหม่ ไม่ทราบว่าเพราะเหตุใด รบกวนผู้รู้ชี้แนะหน่อยครับ ขอบคุณมากครับผม
Private Sub Command29_Click()
If Me.NewRecord = True Then
Dim strOldID As String
Dim lngCurrentNumber As Long
Dim lngNextNumber As Long
Dim strNextNumber As String
Dim strNewID As String
If IsNull(DLast("[BorrowID]", "tblBorrow")) Then
Me.txt_BorrowID = "BR00001"
Else
strOldID = DLast("[BorrowID]", "tblBorrow")
Debug.Print strOldID
lngCurrentNumber = getDigits(strOldID)
Debug.Print lngCurrentNumber
lngNextNumber = lngCurrentNumber + 1
Debug.Print lngNextNumber
strNextNumber = String(5 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)
Debug.Print strNextNumber
strNewID = "BR" & strNextNumber
Debug.Print strNewID
If IsNull(strOldID) Then
Me.txt_BorrowID = "BR00001"
Else
Me.txt_BorrowID = strNewID
End If
End If
End If
End Sub
