กระทู้เก่าบอร์ด อ.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" กดแล้วให้ยกเลิกและปิดกล่องข้อความลงค่ะ ไม่ทราบว่าหนูต้องใส่โค๊ดลงไปในช่วงไหนของโค๊ดเดิมคะ แล้วต้องเขียนโค๊ดออกมาอย่างไรบ้าง รบกวนด้วยนะคะ ขอบคุณค่ะ
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
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
===========================================
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 น่ะคะ ยังไม่ค่อยรู้เรื่องมากนักก็เลยใช้วิซาดซะส่วนใหญ่ เพื่อนหนูแนะนำให้ลองหาความรู้ในเว็บนี้ค่ะ เขาบอกว่าที่นี่มีแต่พี่ๆใจดีน่ะค่ะ แล้วก็จริงๆด้วย หนูจะลองศึกษาดูนะคะ ขอบคุณมากๆเลยค่ะ
Time: 0.3383s
รายืนยัน...!")
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
ทั้งหมดครับ