ลองเอาตัวอย่างนี้ไปแกะศึกษาดูครับ

ดาวโหลดโปรแกรมไปลองดูแล้วค่ะ run ไม่ได้ มันเกิด error ค่ะ ยังงัยรบกวนช่วยด้วยนะค่ะ สำคัญมากจิงๆๆค่ะ

อาจารย์ค่ะ รบกวนช่วยหนูด้วยนะค่ะ ขอบพระคุณมากค่ะ

คือว่าหนูต้องการที่ให้ ID ที่อยู่ใน Table A run number เพิ่มขึ้นไปทีละ 1 เรื่อยๆค่ะ คือถ้ามีการตัดสต๊อกก้อจะนำข้อมูลไปเก็บ Table A และให้เก็บ ID โดยเพิ่ม ID ทีละ 1 ค่ะ ไม่ทราบว่าจะเขียน code ยังงัยดีค่ะ หนูเขียนแบบนี้แล้วเกิด error ค่ะ ช่วยด้วยนะค่ะ

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("Select ID From tblA")

rs2.MoveLast
tblA.ID = Trim(Str(Val(rs1("ID")) + 1))
rs2.MoveFirst

tblA.ID ได้มาอย่างไรครับ
คิดว่าหลักการคงไม่มีปัญหา แต่โค้ดส่วนนี้จะมีปัญหามากกว่า

แล้วมีการเรียกใช้โค้ดที่ให้มาตอนไหนครับ

code ที่ได้มานี้หนู copy มาจากโปรแกรมอื่นค่ะ (หนูไม่ค่อยมีความเข้าใจเขียนโปรแกรม ) จะเรียกใช้ code ตอนที่จะตัดสต๊อกค่ะ คือจะตัดสต๊อกแล้วจะนำข้อมูลทั้งหมดที่ตัดไปเก็บลงใน table นึงชื่อว่า tblA ค่ะ โดยใน tblA นี้จะมี ID เป็น คีย์หลัก ( ID นี่จะไม่ได้มาจากตอนที่กดตัดสต็อกค่ะ แต่จะได้มาจากตอนที่จะเก็บข้อมูลลงใน tblA ค่ะ )

อาจารย์ช่วยหนูด้วยนะค่ะ ขอบคุณมากค่ะ

ถ้าจะให้ ID เป็นแค่คีย์หลัก ก็กำหนดให้เป็น AutoNumber จะง่ายกว่า ไม่ต้องเขียนโค้ดอะไรเลย ค่านั้นจะเพิ่มให้เราเอง

หนูไม่สามารถให้ ID เป็น Autonumber ได้ค่ะ อาจารย์ เพราะว่าหนูมีข้อมูลที่มีอยู่แล้วประมาณ 1000 กว่าบรรทัด หนูลองเพิ่ม ID เป็น Autonumber แล้วค่ะ แต่ปรากฏว่า ตัวเลขใน ID มันจะไม่เรียงตามวันที่ค่ะ หนูอยากให้เลข ID เรียงตามวันที่จากน้อยไปหามากค่ะอาจารย์ ทำอย่างไรดีค่ะ

ถ้าฟีลด์ ID ไม่ได้ใช้ประโยชน์อะไร ก็ไม่ต้องมีก็ได้ครับ

ถ้าต้องการให้มีการค้นหาที่รวดเร็ว ก็ให้ทำ Index ในฟีลด์วันที่ และฟีลด์ที่เป็นรหัสสินค้า

อีกอย่าง ตัวอย่างโค้ดที่เอามาให้ดู เป็นแค่ส่วนหนึ่งของโค้ดเราทั้งหมด เลยไม่รู้ว่าเราเรียกใช้ตอนไหน และเมื่อได้ ID มาแล้ว เรานำไปใช้อย่างไร

ดูเหมือนว่าเราจะใช้โค้ดในการส่งข้อมูลไปยังตารางเป้าหมาย ลองเอาโค้ดมาดูทั้งหมดดูครับ