ลบข้อมูลออกจากฟิลเมื่อกดปุ่ม ขณะเดียวกันก็เอาข้อมูลนั้นเพิ่มไปอีกฟิล

[001Jetnipit]

ประมาณนี้ครับ เลือกติ๊กคนมาแล้วใส่วันที่ให้เขา ในForm พอกดปุ่ม ก็ให้ลบข้อมูลในฟิลด์ DateTemp(ข้อมูลที่เราเพิ่งกรอกไป) แล้วก็เอาข้อมูลที่กรอกนี้ไปเพิ่มในอีกตาราง
ไม่ทราบว่าต้องเขียน VBA อย่างไรครับ

[apirak]

Private Sub Command4_Click()
Dim db As Database
Dim DBrs As DAO.Recordset
Set db = CurrentDb
Set DBrs = db.OpenRecordset("tbl_test") 'ชื่อตารางที่ต้องการเก็บข้อมูล

DBrs.AddNew
DBrs![DateTime] = txtDateTime.Value   'ชื่อฟิวส์ที่ตาราง และชื่อtext box ที่ฟอร์ม
DBrs![Status] = Check5.Value   'ชื่อฟิวส์ที่ตาราง และชื่อtext box ที่ฟอร์ม

DBrs.Update

'เคลียร์ข้อมูล

Me.txtDateTime = ""
Me.Check5 = ""
End Sub


น่าจะประมาณนี้ครับ ไม่แน่ใจตรงความต้องการหรือเปล่าครับ