รบกวนขอตัวอย่างการรัน Autonumber แบบ
เล่มที่ 1 มีเลขที่ 1-50 เมื่อหมดก็เริ่่ม เล่มที่ 2 ก็มีเลขที่ 51-100 และเริ่มเล่มที่ 3 ในทำนองเดียวกัน

และถ้าดูจากโค๊ดด้านล่างนี้ แล้วจะแก้ยังไงคะ เพราะอันนี้จะรันแยกตามปี / เดือน แต่อยากได้แบบที่รันเลขแล้วครบ 50 แล้วขึ้นเล่มใหม่
ขอบคุณมากค่ะ

YYMM-xxxx
โดย tblSell13 คือ ชื่อ Table
และ ID คือ ชื่อ Field


Private Sub ID_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String

strDate = Format(Date, "yymm")

If Me.ID = "" Or IsNull(Me.ID) Then
        If IsNull(DMax("Val(Mid([ID],6))", "tblSell13", "Left([ID],4) = '" & strDate & " '")) Then
            Me.ID = strDate & "-" & "001"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([ID],6))", "tblSell13", "Left([ID],4) = '" & strDate & " '")
            intMax = intMax + 1
            Me.ID = strDate & "-" & Format(intMax, "000")
            Debug.Print "1"
        End If

End If

End Sub