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



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

12 ม.ค. 61 , 11:57:50
อ่าน 1329 ครั้ง

prajak

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



[ไฟล์แนบถูกลบโดยผู้ดำเนินการ]
« แก้ไขครั้งสุดท้าย: 12 ม.ค. 61 , 13:00:06 โดย prajak »

 

12 ม.ค. 61 , 15:04:52
ตอบกลับ #1

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

 


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