สร้างข้อความเมื่อกด ปุ่มคำสั่ง

[kunlek]

ขอวิธีการใส่ข้อความโต้ตอบ Y/N เมื่อกดปุ่ม command bottom หัวฟอร์มบันทึกข้อมูล

[Un]

   

โค๊ด: [Select]

Dim RetValue As Variant
    DoCmd.SetWarnings False
    RetValue = MsgBox("ยืนยันลบข้อมูล", vbOKCancel)
       Select Case RetValue
          Case 1
                DoCmd.RunCommand acCmdSelectRecord
                DoCmd.RunCommand acCmdSaveRecord
                DoCmd.RunCommand acCmdDeleteRecord
                MsgBox "ลบเรียบร้อยแล้ว"
                Case Else
                '''
                End Select
    DoCmd.SetWarnings True
ลองไปปรับใช้ครับ