กระทู้เก่าบอร์ด อ.Yeadram
        
           2,001   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.5055s
    
      
		
รายืนยัน...!")
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
ทั้งหมดครับ