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

[aoffeeprince]

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

[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

ปล.อัพเดทอัพไฟล์ตัวอย่างกระทู้เก่าให้แล้วนะครับ