การปรับปรุงข้อมูล ด้วย DAO Recordset

ในการแก้ไขข้อมูลด้วย recordset ต้องมีการเปิด recordset จากนั้นจึงการแก้ไขด้วย เมธอด Edit แล้วบันทึกข้อมูลด้วยเมธอด Update

With rst

.Edit
!RecordData = Val(txtData)
.Update

End With

การค้นหาเรคคอร์ดที่ต้องการแก้ไขในตัวอย่างนี้ใช้ เมธอด Seek ซึ่งใช้ค่าของคุณสมบัติ Index ในการระบุคอลัมน์สำหรับการค้นหาค่าด้วยเมธอด Seek

rst.Index = "RecordID"
rst.Seek "=", CLng(txtID)

ตรวจสอบการค้นหาใช้คุณสมบัติ NoMatch ซึ่งถ้าค่าเป็น จริง (True) แสดงไม่พบข้อมูล และค่าเป็น เท็จ (False) แสดงว่าพบข้อมูล

If rst.NoMatch Then

MsgBox "ไม่พบข้อมูลที่ระบุ"

Else

With rst

.Edit
!RecordData = Val(txtData)
.Update

End With

MsgBox "ปรับปรุงข้อมูลเรียบร้อยแล้ว"

End If

ดาวน์โหลดตัวอย่าง

หัวข้อเพิ่มเติม

DOA Recordset
การค้นหา