1
ห้อง MS Access / : อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม
« เมื่อ: 17 ต.ค. 61 , 19:41:07 »ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 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
***
ทำได้แล้วครับ ผมสับสนเอง ขอโทษด้วยนะครับ