การเพิ่มและอับเดตข้อมูลครั้งละหลายๆ เรคคอร์ดค่ะ

[ingfahm59]

พอดีว่าเขียนโค้ด วิธีการเพิ่มข้อมูลได้ครั้งละหลายๆเรคคอร์ดได้แล้ว
ต่อไปอยากให้ เมื่อคลิกข้อมูลเดิมให้ไปอับเดต ข้อมูลเดิมที่เพิ่มเข้าไป ครั้งละหลายๆเรคคอร์ด สามารถทำอย่างไรได้บ้างคะ
ไม่แน่ใจว่าหากใช้ if else และจะต้องเขียนประมาณไหนค่ะ
Private Sub Command92_Click()
Dim strnum As String
Dim i As Long
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_slide", DB_OPEN_DYNASET)
For i = Me.txtBeginNumber To Me.txtEndNumber
strnum = Nz(Me.txtlabno) & Nz(", ") & Nz(Me.txtnumss) & Right("" & i, 2) & Nz(",1")
rs.AddNew
rs![tb_labno] = Me.txtlabno
rs![tb_slidenum] = strnum
rs![tb_qry] = "1"
rs![tb_timein] = Now()
rs![tb_status] = "In Process"
rs![tb_casetyp] = "HE"
rs.Update
Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing
Me.tbl_slide_subform.Requery
Me.txtBeginNumber = ""
Me.txtEndNumber = ""
Me.txtnumss = ""
End Sub

[Un]

ง่ายๆ ก็ใช้ Update Query ครับ ใส่เงื่อนไขเข้าไป
แล้ว ใช้โค๊ต DoCmd.OpenQuery "ชื่อQuery"

[OddyWriter]

ยืนยันอีก 1 เสียงครับ O/

[ingfahm59]

ต้องใส่โค๊ต DoCmd.OpenQuery บรรทัดไหนคะ 

[Un]

ต้องใส่โค๊ต DoCmd.OpenQuery บรรทัดไหนคะ 

มันเป็นคำสั่งให้รันคิวรี่ครับ เอาไปไว้หลังจากโค๊ตที่เพิ่มข้อมูลเสร็จแล้ว
คือมันอยู่ที่เราออกแบบว่าจะให้ทำอะไรตอนไหนครับ