ตรวจสอบการรัน SQL สำเร็จหรือไม่

[chai]

สอบถามครับว่าเราจะตรวจสอบได้อย่างไรว่าเมื่อเราใช้คำสั่ง docmd.Runsql "" ทั้ง Update Insert Delete เมื่อทำงานสำเร็จ ให้ Message บอกว่าได้ดำเนินการแล้ว มีการ insert update delete ในฐานข้อมูลเกิดขึ้นจริงๆ

[PNR]

ใช้ RecordsAffected เช็คครับเช่น


Private Sub Command6_Click()
Dim  SQL As String
Dim DB As DAO.Database
Set DB = CurrentDb

SQL = "INSERT INTO T1 ( Field1, Field2, Field3 ) SELECT Table1.Field1, Table1.Field2, Table1.Field3 FROM Table1;"
DB.Execute SQL

If DB.RecordsAffected <= 0 Then
   MsgBox "ไม่มีข้อมูลที่นำเข้า."
Else
MsgBox "นำเข้าจำนวน " & DB.RecordsAffected & " เรคคอร์ด", vbInformation, "Myprogram"
End If
set DB = nothing
End Sub

อันนี้คือตัวอย่าง Insert ลองดูกับ Delete และ Update ดูครับได้เหมือนกัน

[chai]

ขอบคุณมากครับ