1
ห้อง MS Access / : เขียน code กดปุ่มครั้งเดียว ลงข้อมูลทั้งหมดในฟิลด์
« เมื่อ: 17 เม.ย. 64 , 11:17:24 »
โจทย์เดียวกันกับกระทู้นี้นะครับ https://www.thai-access.com/index.php?topic=1614.msg7017#msg7017
ชุดคำสั่งที่จะนำไปใช้ก็แก้ให้ตรงกับของท่านดังนี้
Private Sub "ชื่อปุ่ม Input"_Click()
End Sub
ปล.อัพเดทอัพไฟล์ตัวอย่างกระทู้เก่าให้แล้วนะครับ
คำตอบโค๊ด: [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(ชื่อฟิวล์ในตารางที่ต้องการให้นำข้อมูลมาวาง) |
ปล.อัพเดทอัพไฟล์ตัวอย่างกระทู้เก่าให้แล้วนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: aoffeeprince