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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

17 ก.ย. 64 , 08:25:53
อ่าน 331 ครั้ง

001Jetnipit





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

 

17 ก.ย. 64 , 16:51:28
ตอบกลับ #1

apirak

: รบกวนขอโค้ด VBA ลบ Record หน่อยครับ
« ตอบกลับ #1 เมื่อ: 17 ก.ย. 64 , 16:51:28 »
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


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

 

21 ก.ย. 64 , 08:27:52
ตอบกลับ #2

001Jetnipit

: รบกวนขอโค้ด VBA ลบ Record หน่อยครับ
« ตอบกลับ #2 เมื่อ: 21 ก.ย. 64 , 08:27:52 »
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


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

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


 


บอร์ดเรียนรู้ Access สำหรับคนไทย