เขียน code กดปุ่มครั้งเดียว ลงข้อมูลทั้งหมดในฟิลด์



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

16 เม.ย. 64 , 18:12:30
อ่าน 224 ครั้ง

aoffeeprince

  • สมาชิกไท.Access
  • กระทู้: 2

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

อยากเขียนโค๊ด ให้กดปุ่ม input ครั้งเดียว แล้วนำข้อมูลจาก cmb_package ไปบันทึกลงฟิลด์ j_testloop ช่องสีเหลืองทั้งหมดเลย รบกวนหน่อยครับ


 

17 เม.ย. 64 , 11:17:24
ตอบกลับ #1

UnKnown

โจทย์เดียวกันกับกระทู้นี้นะครับ https://www.thai-access.com/index.php?topic=1614.msg7017#msg7017
คำตอบ
โค๊ด: [Select]
Private Sub Select_AfterUpdate()
    CurrentDb.Execute "UPDATE RssmNew_filter SET complete = " & Me.Select & " WHERE เลขที่ใบเบิก = '" & Me.IDNumber & "'", dbFailOnError
    Me.Recalc
End Sub

ชุดคำสั่งที่จะนำไปใช้ก็แก้ให้ตรงกับของท่านดังนี้
Private Sub "ชื่อปุ่ม Input"_Click()
   RssmNew_filter--> ชื่อตารางหรือคิวรี่ที่ซัพฟอร์มดึงมา
   Me.IDNumber--> ชื่อกล่องข้อมูลบนฟอร์มหลักที่ใช้กรองข้อมูลซัพฟอร์ม(จากภาพท่านกรองจากกล่อง Iso No. ใช่หรือไม่?)
เลขที่ใบเบิก--> ชื่อฟิวล์ในตารางซัพฟอร์มที่รับคำสั่งกรองมาจากข้อบน ^^^^^
Me.Select--> me.cmb_package(ชื่อกล่องที่ต้องการดึงบนหน้าฟอร์ม)
complete--> j_testloop(ชื่อฟิวล์ในตารางที่ต้องการให้นำข้อมูลมาวาง)
End Sub

ปล.อัพเดทอัพไฟล์ตัวอย่างกระทู้เก่าให้แล้วนะครับ
« แก้ไขครั้งสุดท้าย: 17 เม.ย. 64 , 17:56:40 โดย UnKnown »
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: aoffeeprince, Somsak472


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