Input ค่าลง Combobox แล้วให้ Save ทุก record ตาม Combobox

[001Jetnipit]

ไม่ทราบว่าสามารถทำได้ไหมครับ ที่จะทำให้เมื่อเราเลือกแล้ว ทุก Record ก็ Save ค่าตามๆ กัน รบกวนอาจารย์ทุกท่านครับ

[apirak]

Dim db As Database
Dim DBrs As DAO.Recordset
Set db = CurrentDb
Set DBrs = db.OpenRecordset("ชื่อตาราง")

DBrs.AddNew
DBrs![Field] = ชื่อCombobox1.Value
DBrs![Field] = ชื่อCombobox2.Value
DBrs![Field] = ชื่อCombobox3.Value

DBrs.Update

อันนี้ฟอร์มบันทึกแบบ Unbound ถ้าเป็นแบบ Bound ก็ดึง Record Source ได้เลยครับ