Auto Number ไม่รันลำดับต่อไป รบกวนตรวจสอบให้ทีครับ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

15 เม.ย. 61 , 19:57:10
อ่าน 615 ครั้ง

Eik Q Sang

จากโค้ดด้านล่าง เป็นโค้ดรัน 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

 

15 เม.ย. 61 , 22:41:19
ตอบกลับ #1

สันติสุข

ใช้ DMAX แทน DLAST ครับ
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

15 เม.ย. 61 , 23:53:41
ตอบกลับ #2

Eik Q Sang

ใช้ DMAX แทน DLAST ครับ

ขอบพระคุณมากครับอาจารย์สันติสุข

 

15 เม.ย. 61 , 23:56:14
ตอบกลับ #3

Eik Q Sang

ก็ยังเหมือนเดิมครับ อาจารย์ อิอิ

 

16 เม.ย. 61 , 00:17:21
ตอบกลับ #4

Eik Q Sang

ในตารางเทเบิ้ลเป็นแบบนี้ครับ พอกดปุ่มรัน ก็มา BR00001 ใหม่ครับ ไม่รู้เป็นเพราะสาเหตุใดครับ - -*
« แก้ไขครั้งสุดท้าย: 16 เม.ย. 61 , 01:14:10 โดย Eik Q Sang »

 

16 เม.ย. 61 , 01:05:31
ตอบกลับ #5

Eik Q Sang

ได้แล้วครับผม
« แก้ไขครั้งสุดท้าย: 16 เม.ย. 61 , 01:13:57 โดย Eik Q Sang »

 


บอร์ดเรียนรู้ Access สำหรับคนไทย