แสดงกระทู้
1
ห้อง MS Access / : สอบถามเรื่องการ running no. เมื่อขึ้นเดือนใหม่ของการรับเอกสาร
« เมื่อ: 26 ส.ค. 62 , 14:54:05 »ผมนำไฟล์อ.OddyWriter จากกระทู้ > อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มาแก้ให้เป็น yymm-00000 เป็นที่เรียบร้อย ลองไปเปลี่ยนตัวแปรเพื่อใช้ใน Qeury ของท่านดูครับโค๊ด: [Select]Private Sub Data_AfterUpdate()
txtRunningNum = Format([txtDate], "yymm") & "-" & Right("00000" & DCount("[RunningNum]", "[tblRunningNumber]", "Left([RunningNum],4) = Format([txtDate],'yymm')") + 1, 5)
End Sub
ปล.รูปที่นำไปฝากตามเว็บเมื่อจะนำมาโพสกระทู้เว็บบอร์ดให้ใช้หรือ Copy BBCode มาครับ
ตัว code นี้ ใช้กับแบบฟอร์มแล้วสร้าง textbox ขึ้นมา หรือนำไปใช้กับ Query ได้เลยค่ะ
พอดิฉันเอา code นี้ไปใส่ใน Query แล้วปรับกับฟิลด์ของดิฉันแล้ว ตัวเลข 5 หลักสูดท้ายมันไม่ Running No. ให้ค่ะ
แต่ขึ้นเป็น Running No. เลขสุดท้ายของเอกสารให้ค่ะ
