กระทู้เก่าบอร์ด อ.Yeadram
1,418 1
URL.หัวข้อ /
URL
การรันเลขที่เอกสาร
รบกวนอาจารย์ทุกท่านค่ะ หนูต้องการที่จะทำฟอร์มๆนึง ที่มีรายละเอียดของ
เลขที่เอกสาร
ชื่องาน
รายละเอียดงาน
โดยต้องให้ให้ ตัวของเลขที่เอกสาร รัน อัตโนมัติ
ตาม ฟอแมต XX-XX-2017-MM-เลขที่เอกสาร
โดยที่ตอนแรกลองทำโดยการสร้างตารางสำหรับการรันเลขที่เอกสารมา 1 ตาราง แล้วใช้สูตร
Private Sub Form_Load()
Me.No = Format(DMax("[No]", "tbAutoRunPo") + 1, "00")
Me.year = Format(Date, "yyyy")
Me.month = Format(Date, "mm")
Me.DocNo = "SS-MD-" & [year] & "-" & [No]
End Sub
กำกับ สรุปว่าสามารถ Run ลำดับได้จริง
แต่เวลาดึงมาใช้กับตารางฟอร์มที่บันทึกข้อมูลอื่นๆ ไม่สามารถใช้งานได้ และข้อมูลไม่สามารถบันทึกได้
เลยลองเพิ่มฟิล ไปในตารางที่สร้างการรันเลข บันทึกได้แต่ไม่สามารถขึ้น Record ใหม่ได้ ข้อมูลจะขึ้นแค่แถวเดียว แต่ตัวเลขจะรันไปทุกครั้งที่เราเปิดฟอร์มตามที่ใส่ action ไว้
รบกวนด้วยน่ะค่ะ
เลขที่เอกสาร
ชื่องาน
รายละเอียดงาน
โดยต้องให้ให้ ตัวของเลขที่เอกสาร รัน อัตโนมัติ
ตาม ฟอแมต XX-XX-2017-MM-เลขที่เอกสาร
โดยที่ตอนแรกลองทำโดยการสร้างตารางสำหรับการรันเลขที่เอกสารมา 1 ตาราง แล้วใช้สูตร
Private Sub Form_Load()
Me.No = Format(DMax("[No]", "tbAutoRunPo") + 1, "00")
Me.year = Format(Date, "yyyy")
Me.month = Format(Date, "mm")
Me.DocNo = "SS-MD-" & [year] & "-" & [No]
End Sub
กำกับ สรุปว่าสามารถ Run ลำดับได้จริง
แต่เวลาดึงมาใช้กับตารางฟอร์มที่บันทึกข้อมูลอื่นๆ ไม่สามารถใช้งานได้ และข้อมูลไม่สามารถบันทึกได้
เลยลองเพิ่มฟิล ไปในตารางที่สร้างการรันเลข บันทึกได้แต่ไม่สามารถขึ้น Record ใหม่ได้ ข้อมูลจะขึ้นแค่แถวเดียว แต่ตัวเลขจะรันไปทุกครั้งที่เราเปิดฟอร์มตามที่ใส่ action ไว้
รบกวนด้วยน่ะค่ะ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R23091
อ่านแล้วไม่แน่ใจว่าปัญหาคืออะไร เอาเป็นว่าอีเว้นท์ Form_Load จะทำงานเพียงครั้งเดียว คือเมื่อเปิดฟอร์มขึ้นมา ถ้าจะให้โค้ดนี้ทำงานทุกครั้งสำหรับการป้อนแต่ละเรคอร์ด ก็ควรใช้อีเว้นท์ Form_BeforeInsert ซึ่งจะเกิดทันทีที่มีการกดอักษรตัวแรกในเรคอร์ดใหม่ครับ
Time: 0.3391s