เพิ่มเติมครับผมลืมปุ่ม Save ไปปุ่มนึงครับ แบบว่าพอแก้ไขหรือลบข้อมูลแล้วก็เซฟข้อมูลใหม่ไว้ที่ตารางเกผ็บข้อมูลครับผม

คำสั่งในปุ่มลบ
on error resume next
Me.AllowDeletions=true
DoCmd.RunCommand acCmdDeleteRecord
Me.AllowDeletions=false
on error goto 0


คำสั่งในปุ่ม edit
on error resume next
me.AllowEdits=true
ชื่อtextboxที่จะให้แก้ไข.enable=true
ชื่อtextboxที่จะให้แก้ไข.setfocus 'ถ้ามีหลายตัว เลือกเฉพาะตัวแรก
me.ปุ่มedit.enable=false
on error goto 0

คำสั่งในปุ่ม add
on error resume next
me.AllowAdditions=true
ชื่อtextboxที่จะให้แก้ไข.enable=true
ชื่อtextboxที่จะให้แก้ไข.setfocus     'ถ้ามีหลายตัว เลือกเฉพาะตัวแรก
me.ปุ่มadd.enable=false
on error goto 0

คำสั่งในปุ่ม save
docmd.RunCommand acCmdSaveRecord
me.AllowEdits=false
me.AllowAdditions=false
me.ปุ่มadd.enable=true
me.ปุ่มedit.enable=true


-- ถ้ามันมี error ใดๆ ในการทำงานให้ลองปรับลองแก้ดูครับ แค่เห็นคำสั่งก็คงพอจะเดาหลักการทำงานได้แล้วมั้งครับ

ละเอียดมากๆเลยครับ จะนำความรู้ไปลองทำดูคับ ขอบคุณท่านอาจารย์มากๆเลยครับ

รบกวนสอบถามเพิ่มเติมครับ ผมทำปุ่ม Edit แล้วมันว่า

Compile error
Method or data member not found

โค๊ดผมประมาณนี้ครับ

Private Sub Command62_Click()
On Error Resume Next
Me.AllowEdits = True
Cus_Add.enable = True
Cus_Add.SetFocus
Command62.enable = False
On Error GoTo 0
End Sub

ตรง Cus_Add.enable = True ในส่วนของ enable มีกรอบสีน้ำเงินครอบอยู่น่ะครับ error อย่างนี้หมายความว่าไงหรือครับ

ผมเขียนผิดหรือเปล่าครับ ลองเขียนเองดูหรือยัง
มันอาจจะเขียนว่า .enabled ครับ เขียนหน้าเว็บผมเขียนสดครับ ไม่ได้ลอง
ปกติเวลาเขียนโค้ดมักจะให้ VBA ช่วยลิสต์แล้วเลือกเอาครับ เลยไม่ค่อยจดจำละเอียดครับ