สอบถามการใช้ปุ่ม button เพื่อใช้คำสั่ง Duplicate Record

[prajak]

รบกวนสอบถามนะครับ ผมใช้ button ในคำสั่ง Duplicate record ถ้าต้องการให้เวลากดปุ่มเพื่อจะให้ copy ข้อมูล จะมี popup ขึ้นมาถามก่อนว่า " คุณต้องการ Copy ข้อมูลหรือไม่ " ถ้ากดใช่ ก็จะสั่งให้ copy แต่ถ้ากดไม่ใช่ ก็ไม่ต้อง copy ครับ



[ไฟล์แนบถูกลบโดยผู้ดำเนินการ]

[pizza_p]

ตรง event click ที่ได้สร้างไว้ให้เพิ่มคำถามไว้ก่อนที่จะดำเนินการครับ

Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

If MsgBox("คุณต้องการ copy ข้อมูลหรือไม่", vbQuestion + vbYesNo + vbDefaultButton2, "ยืนยันการทำงาน") = vbYes Then

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

End If

Exit_Command8_Click:
    Exit Sub

Err_Command8_Click:
    MsgBox Err.Description
    Resume Exit_Command8_Click
   
End Sub