สอบถามเรื่องลบข้อมูลแบบมีกล่องคำถาม
กระทู้เก่าบอร์ด อ.Yeadram

 1,836   3
URL.หัวข้อ / URL
สอบถามเรื่องลบข้อมูลแบบมีกล่องคำถาม

สวัสดีค่ะ หนูมีเรื่องรบกวนสอบถามหน่อยนะคะ คือหนูมีฟอร์มแก้ไขรายชื่อลูกค้าอยู่หนึ่งฟอร์ม หนูสร้างปุ่มลบข้อมูลจากวิซาดของ Access โค๊ดมีดังนี้ค่ะ

Private Sub Command33_Click()
On Error GoTo Err_Command33_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click
    
End Sub

คือพอเวลาหนูกดลบข้อมูล มันจะลบข้อมูลไปเลยไม่มีการถามก่อนว่าจะให้ลบหรือไม่ค่ะ ถ้าหนูต้องการให้มีกล่องข้อความถามก่อนว่า "จะลบข้อมูลหรือไม่" แล้วมีปุ่มขึ้นมาอีก 2 ปุ่ม ปุ่มที่ 1 ให้ใช้คำว่า "Yes" กดแล้วถึงสามารถลบข้อมูลออกไปได้ กับปุ่มที่ 2 ให้ใช้คำว่า "No" กดแล้วให้ยกเลิกและปิดกล่องข้อความลงค่ะ ไม่ทราบว่าหนูต้องใส่โค๊ดลงไปในช่วงไหนของโค๊ดเดิมคะ แล้วต้องเขียนโค๊ดออกมาอย่างไรบ้าง รบกวนด้วยนะคะ ขอบคุณค่ะ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R10756
cf = MsgBox("ต้องการลบข้อมูลหรือไม่...?", vbYesNo, "กรุ
รายืนยัน...!")
    If cf = vbYes Then
กรณีที่ต้องการลบ
else
กรณีที่ไม่ต้องการลบ
End If
เอาไปใส่แทนที่
On Error GoTo Err_Command33_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click
     
ทั้งหมดครับ
2 @R10757
ผมไม่ค่อยชอบใช้ Wizard ในการสร้างฟอร์มนัก เนื่องจากมันไม่ค่อยยืดหยุ่น สุดท้ายก็ต้องเขียนโค้ดเองอยู่ดี แต่จะเป็นแนวทางที่ดีในการเริ่มต้นสำหรับคนที่เพิ่งจะหัดใช้ access

===========================================

Private Sub Command33_Click()
On Error GoTo Err_Command33_Click

If (MsgBox("จะลบข้อมูลหรือไม่ ?", vbInformation + vbYesNo + vbDefaultButton2, "โปรดยืนยัน")) = vbYes Then

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click
     
End Sub
3 @R10759
ขอบคุณมากๆเลยค่ะ คุณปิยะพันธ์ และ คุณ Sak คือหนูเพิ่งหัดทำ Access น่ะคะ ยังไม่ค่อยรู้เรื่องมากนักก็เลยใช้วิซาดซะส่วนใหญ่ เพื่อนหนูแนะนำให้ลองหาความรู้ในเว็บนี้ค่ะ เขาบอกว่าที่นี่มีแต่พี่ๆใจดีน่ะค่ะ แล้วก็จริงๆด้วย หนูจะลองศึกษาดูนะคะ ขอบคุณมากๆเลยค่ะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3383s