อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม

[TaroKung Ichimura]

ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 001 นะครับ (ฉบับมาโครก็เช่นเดียวกัน)

RunnungNum	myDate	Data
6107001	26-07-18	11
6107002	26-07-18	22
6108003	01-08-18	33
6108004	01-08-18	44
6109005	01-09-18	55
6109006	01-09-18	66

รบกวนสอบถามครับ พอดีผมลองโหลดมาแล้วลองเอาโค้ดมาปรับอิงตามไฟล์งานผม พอลองเปลี่ยนเดือนแล้วเลขมันไม่ขึ้น 001 ใหม่ครับ ไม่แน่ใจว่าเงื่อนไขที่ว่าคือส่วนไหนครับ

Private Sub Name_AfterUpdate()
    ID = Format([date], "yymm") & Right("000" & DCount("[ID]", "[tbl_Tet]", "Left([ID],4) = Format([date],'yymm')") + 1, 3)
End Sub

***
ทำได้แล้วครับ ผมสับสนเอง ขอโทษด้วยนะครับ