เมื่ออัพเดทข้อมูล ให้ทำการเพิ่ม Recordใหม่ ในอีกตาราง

[thanapol.w]

สวัสดีครับ
ขออนุญาตสอบถาม  วิธีการทำการเพิ่มข้อมูลเพื่อเก็บประวัติการเปลี่ยนแปลงข้อมูลในตาราง Tbl_farmlands


จากภาพ  : กระผมต้องการให้  เมื่อ tbl_farmlande.Ref_member มีการอัพเดทข้อมูล   ให้ไป Add New Record ใน Tbl_TransOwner โดยมีรายละเอียดดังนี้
- Farmid = tbl_farmlands.[fid] ของ record ที่ ref_member ถูกเปลี่ยนแปลง
- transFrom = tbl_farmlands.[Ref_member]  ก่อนถูกเปลี่ยน
- transTo = tbl_farmlands.[Ref_member]  หลังถูกเปลี่ยน
- transDate = Date()

[สันติสุข]

การอัพเดท Ref_member ทำผ่านฟอร์มหรือผ่านโค้ด

[thanapol.w]

โค๊ดครับ

[สันติสุข]

ถ้าการอัพเดตก่อนหน้านี้ถูกทำผ่านโค้ด ดังนั้นคุณก็สามารถอ่านและเก็บค่าต่างๆเอาไว้ได้ทั้งก่อนและหลังการอัพเดต    สมมุติว่า I,M1,M2 คือตัวแปรที่เก็บค่า Fid, Member ก่อนและหลังเปลี่ยนตามลำดับ ก็ใส่โค้ดนี้ต่อท้ายโค้ดที่อัพเดต Ref_Member 

DoCmd.RunSQL "INSERT INTO Tbl_TransOwner(farmid, TransFrom, TransTo, TransDate) VALUES('" & I & "', '" & M1 & "', '" & M2 & "', #" & Format(Date(), "dd/mmm/yyyy") & "#)"

หมายเหตุ : โค้ดนี้สำหรับฟิลด์ TransDate ที่มี Data Type เป็น Date