กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
287 2
URL.หัวข้อ /
URL
Backup current record
ป้อนข้อมูลผ่าน form และเมื่อถึง field สุดท้าย
หลังจากกด enter ให้นำ record ปัจจุบัน
ไปเก็บไว้ในตารางใหม่ที่จัดเตรียมไว้ (append) ต่อท้ายกันไปเรื่อยๆ
ช่วยแนะนำการเขียน code ด้วยค่ะ
ขอบพระคุณค่ะ
หลังจากกด enter ให้นำ record ปัจจุบัน
ไปเก็บไว้ในตารางใหม่ที่จัดเตรียมไว้ (append) ต่อท้ายกันไปเรื่อยๆ
ช่วยแนะนำการเขียน code ด้วยค่ะ
ขอบพระคุณค่ะ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01469
ขอถามต่อว่า...หลังจากที่ backup แล้ว
ก็ให้ลบทิ้งไปด้วยเลย อัตโนมัติ
ขอบคุณค่ะ
2 @R01475
เผื่อว่าคนที่เปิดเข้ามาอ่านกระทู้นี้ อยากรู้ว่าเขียน code อย่างไร
ท่านอาจารย์สุภาพ ได้แนะนำดังนี้ค่ะ ลองนำไปปรับใช้ดูนะคะ
=======================================
Private Sub ชื่อObject_AfterUpdate()
Dim dbs As Database
Set dbs = CurrentDb
DoCmd.RunCommand acCmdSaveRecord
dbs.Execute "INSERT INTO tblA " _
& "SELECT tblB.* " _
& "FROM tblB " _
& "WHERE tblB.ID='" & Forms!MainformName.SubformName.Form.id
& "'" 'ในกรณีมี mainform และ subform
dbs.Execute "Delete * From tblB Where ID='" &
dbs.Close
Set dbs = Nothing
End sub
======================================
Time: 0.1413s