> กระทู้โค้ดตัวอย่างที่เขาใช้ https://www.thai-access.com/index.php?topic=1087.msg4861#msg4861

> หรือชมแนวทางจาก อ.TTT ครับ

     การสร้างไฟล์แอคเซสขึ้นมาไฟล์ๆหนึ่งนั้นก็คล้ายกับการเขียนโปรแกรมขึ้นมานั่นล่ะครับ ดังนั้นตาราง,คิวรี่,ฟอร์ม,หรือโค้ดคำสั่งที่มีอยู่ก็เกิดจากที่เราสร้างมันขึ้นมามันจะเป็นขยะหรือไม่ก็ขึ้นอยู่กับตัวเรา หรืออย่างบางทีเราสร้างคิวรี่,สร้างฟอร์มมาเก็บใว้ไม่ได้ใช้งานจริงนั่นก็ถือว่าเป็นขยะของไฟล์ได้แล้วครับ แต่เราก็อาจอยากเก็บใว้เพื่อใช้ในอนาคต,ตัวอย่างปัญหา,หรืออะไรก็แล้วแต่นั้นผมขอถือว่ามันไม่ใช้ขยะทางความคิดละ ที่นี้มันก็ขึ้นอยู่กับคนที่เขียนโปรแกรมล่ะว่าจะทำอย่างไรจะทำไฟล์ใหม่ที่ไม่มีขยะพวกนี้ใหมเพราะจะไปให้โปรแกรมอื่นอยูู่ๆเข้ามาลบตาราง,คิวรี่,ฟอร์มคงเป็นไปไม่ได้ครับ

     ส่วนอีกความหมาย(ในความคิดผม)นั่นคือระหว่างที่เราออกแบบโปรแกรมหรือใช้งานฐานข้อมูลอยู่นั้นตัวโปรแกรมจะเก็บแคสส่วนหนึ่งใว้ที่ตัวไฟล์ที่เราเขียน(มีผลต่อขนาดไฟล์)ใน ms access 2007 ขึ้นไปเราสามารถใช้คำสั่ง Compare and Repair Database ได้ครับ (2003ผมไม่รู้ว่ามีใหมหรืออยู่ตรงไหนนะลองหาดูครับ) https://www.addintools.com/documents/access/where-is-compact-repair.html

ผมก็ไม่รู้ทางแก้นะ ลองไปดูแนวทางแก้ด้านล่างดูครับ

https://social.msdn.microsoft.com/Forums/office/en-US/570d591f-0760-4937-a6fb-a19f1d7ac350/the-visual-basic-for-applications-project-in-the-database-is-corrupt?forum=accessdev

กระทู้แนวทางการ Split Database เพื่อใช้งานหลายๆเครื่องครับ
https://www.thai-access.com/yeadram_view.php?topic_id=771

ลองไปศึกษา & โพสถามต่อจากกระทู้นี้นะครับ
พิกัด ละติจูด-ลองติจูดผูกกับฐานข้อมูล ms access กับ google map ใครพอมีตัวอย่าง

แนะนำให้ใช้ Me.ToTalWeight = Nz([cal2], 0) + 0
และเพิ่มเดิมนั่นคือมีการเรียกใช้ CalculateTotal คำนวนชุดล่างอยู่แล้ว ดังนั้นชุดบนเปลี่ยนชื่อสักนิดตามรูปตัวอย่างครับ


Private Sub WeightPerPack_AfterUpdate()
Call CalculateTotal2
End Sub
Private Sub WeightPallet_Afterupdate()
Call CalculateTotal2
End Sub
Private Sub PackPerPallet_Afterupdate()
Call CalculateTotal2
End Sub

Sub CalculateTotal2()
Dim cal1, cal2 As Double
cal1 = Nz([WeightPerPack], 0) * Nz([PackPerPallet], 0)
cal2 = Nz([cal1], 0) + Nz([WeightPallet], 0)

Me.ToTalWeight = Nz([cal2], 0) + 0
End Sub

เปลี่ยนจาก Autorun เป็นเขียนมาโครขึ้นมาใช้เองแทนครับ
ตัวอย่างจากกระทู้นี้เลย > อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม

ผมนำไฟล์อ.OddyWriter จากกระทู้ > อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มาแก้ให้เป็น yymm-00000 เป็นที่เรียบร้อย ลองไปเปลี่ยนตัวแปรเพื่อใช้ใน Qeury ของท่านดูครับ

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 มาครับ

ไม่ต้องแทรกครับ ขึ้นเป็นลำดับใหม่ไปเลยครับ แล้วเมื่อครบ 25 แล้วอยยากให้มันขึ้นป้อนเลขใหม่เพื่อต่อจากเลขชุดที่แล้ว ครับ

กล่าวคือแนวคิดนั้นจะทำเป็นระบบกึ่งออโต้ทั้งหมดโดยที่ สามตัวหน้าเป็นเลขชุด+สองตัวหลัง 01-25 เช่น
ท่านใส่         00101   = 00101-25 จนครบ25
ออโต้รันต่อที่   00201   = 00201-25 จนครบ25
ออโต้รันต่อที่   00301   = 00301-...
ท่านเปลี่ยนมา         10101   = 10101-25 จนครบ25
ออโต้รันต่อที่   10201   = 10201-...
ใช้แนวคิดแบบนี้ใหมครับนี่