บอร์ดเรียนรู้ Access สำหรับคนไทย

Thai Access Webboard => ห้อง MS Access => ข้อความที่เริ่มโดย: thanapol.w ที่ 15 ก.พ. 63 , 14:55:37

หัวข้อ: Form เปลียนแปลงความสัมพันธ์ และเก็บประวัติการเปลี่ยน
เริ่มหัวข้อโดย: thanapol.w ที่ 15 ก.พ. 63 , 14:55:37

ขอวิธีการสร้างฟอร์ม ดังนี้ครับ
(https://www.thai-access.com/tiupld/images/q5qg30-45ebae.jpg)
ขอสอบถามการเขียน VBA จากรูปนี้ Form ผูกใว้กับ Tbl_transfer_farm เป็นการเก็บประวัติการเปลีย่นเจ้าของฟาร์ม (เก็บว่าเดิมเป็นของใคร ,เปลีย่นเป็นใคร, วันที่เปลี่ยน)
โดยต้องการให้ฟอร์มนี้ ไปแก้ข้อมูลเดิมในฟาร์ม 

ถ้าเขียนเป้น sql = Update tbl_farm
        set member_id = me.cbo_TF_TO
       where  member_id = me.cbo_TF_From

(https://www.thai-access.com/tiupld/images/q5qg5d-3ec357.jpg)

หัวข้อ: : Form เปลียนแปลงความสัมพันธ์ และเก็บประวัติการเปลี่ยน
เริ่มหัวข้อโดย: สันติสุข ที่ 16 ก.พ. 63 , 14:13:36

เอาอย่างง่ายๆคือ

    DoCmd.SetWarnings False
    DoCmd.RunSQL  "Update tbl_farm set member_id = Forms![ชื่อฟอร์ม]!cbo_TF_TO where member_id = Forms![ชื่อฟอร์ม]!cbo_TF_From"
    DoCmd.SetWarnings True