รบกวนขอโค้ด VBA ลบ Record หน่อยครับ

[001Jetnipit]

ผมใช้ Macro แต่จะเพิ่มโค้ดบางอย่างเข้าไป แต่เกะจาก Macro ไม่ค่อยเข้าใจครับผม ขอบคุณครับ

[apirak]

On Error GoTo Err_cmdDelete_Click

  DoCmd.SetWarnings False
  If MsgBox("ยืนยันลบข้อมูล?", vbQuestion + vbYesNo + vbDefaultButton2, "ลบข้อมูล?") = vbYes Then
    DoCmd.RunCommand acCmdDeleteRecord
  End If

Exit_cmdDelete_Click:

  DoCmd.SetWarnings True
  Exit Sub

Err_cmdDelete_Click:

  MsgBox Err.Description
  Resume Exit_cmdDelete_Click


ลองดูก่อนนะครับ

[001Jetnipit]

On Error GoTo Err_cmdDelete_Click

  DoCmd.SetWarnings False
  If MsgBox("ยืนยันลบข้อมูล?", vbQuestion + vbYesNo + vbDefaultButton2, "ลบข้อมูล?") = vbYes Then
    DoCmd.RunCommand acCmdDeleteRecord
  End If

Exit_cmdDelete_Click:

  DoCmd.SetWarnings True
  Exit Sub

Err_cmdDelete_Click:

  MsgBox Err.Description
  Resume Exit_cmdDelete_Click


ลองดูก่อนนะครับ

ขึ้นแบบนี้ครับ