อ่านแล้วไม่ค่อยเข้าใจว่าหน้าฟอร์มของคุณเป็นยังไง มีขั้นตอนการ operate อย่างไร เอาเป็นว่าถ้าต้องการเลขลำดับถัดไป ก็ให้ใช้โค้ดข้างล่างนี้ โดยคาดว่าค่าที่เก็บของ ID จะมีเครื่องหมาย "/" ติดอยู่ในนั้นด้วย แล้วก็ใช้โค้ดนี้ใส่ไว้ในปุ่มสักตัวที่กดแล้วจะแปะค่าต่อไปลงบนเท็กบ็อกซ์บนหน้าฟอร์ม (หรือจะแปะค่าตอนไหนก็แล้วแต่คุณจะออกแบบระบบ)

Private ชื่อปุ่ม_Click( )

Dim MaxID as string
Dim NextID as string
Dim NextRN as integer

MaxID = Nz(DMax("ฟิลด์ที่เก็บปีเดือนที่รันนิ่ง","TaxTable","MonthTax=" + Month(DateDoc)),YYMM + "/000")

NextRN = Val(Right$(MaxID,3)) + 1

NextID = Left$(MaxID,5) + Format$(NextRN,"000")

Me.ชื่อเท็กบ็อกซ์บนฟอร์ม = NextID

End Sub

โดยที่ YYMM คุณก็ต้องหาค่าหรือตัวแปรที่เก็บค่าเอามาแทนตำแหน่งนี้ อีกอย่าง โค้ดนี้ไม่ได้ทดสอบ อาจมีผิดพลาดอะไรก็ได้ คุณต้องเอาไปทดสอบเองครับ

ขออภัยครับไม่ได้เข้ามาตอบเลยวุ่นมาก แต่แก้ปัญหาด้วยวิธีนี้แทนครับ
หลายขั้นตอนหน่อยแต่ผลลัพโอเคแล้ว ขอบคุณมากครับ
            MonthID = Month(No6_date)
            yearID = Year(No6_date)
            yearID = Int(yearID) + 543
            yearID = Right(yearID, 2)
            strCriteria = No6_date.value
            idrun = DMax("IDrunning", "TaxTable", "monthTax=" & MonthID)
            idrun = Int(idrun) + 1
               If Int(idrun) < 10 Then
               idrun = "00" + idrun
               ElseIf idrun < 100 Then
               idrun = "0" + idrun
               End If
              
               If Int(MonthID) < 10 Then
               MonthID = "0" + MonthID
               End If
            DocID.value = yearID + MonthID + "/" + idrun

Set xRec = DBEngine(0)(0).OpenRecordset("SELECT TOP 1 TaxTable.* FROM TaxTable WHERE (((TaxTable.MonthTax)=Month(DateDoc))) ORDER BY TaxTable.DocID desc)
Do Until xRec.EOF
        ...........
          Loop

BOF begen of file
EOF end of file