เพิ่มเป็น
Private Sub Command166_Click()
On Error Resume Next
Dim strSQL,Answer As String
Answer = MsgBox("คุณแน่ใจเหรอว่าต้องการลบตารางคนมามอบตัวทิ้ง" & vbCrLf & "ตรวจสอบให้แน่ใจ เอาคืนไม่ได้" & vbCrLf & "กด yes = ยืนยันการลบ" & vbCrLf & "กด No = ยกเลิกการลบ", vbYesNo + vbDefaultButton2, "!!!!ลบตารางคนมามอบตัว!!!!")
If Answer = vbYes Then
DoCmd.SetWarnings False
strSQL = "Delete * from m1_Total_student;"
DoCmd.RunSQL strSQL
MsgBox "คุณได้ลบตารางคนมามอบตัวทิ้งเรียบร้อยแล้ว" & vbCrLf & "กรุณาตรวจสอบข้อมูล", , "ผลการลบตารางคนมามอบตัว"
DoCmd.Close
DoCmd.OpenForm "frm_main_menu"
DoCmd.MoveSize 300, 400, 18500, 11000
DoCmd.SetWarnings True
Else
MsgBox "คุณได้ยกเลิกการลบตารางคนมามอบตัวทิ้ง", , "ยกเลิก"
End If
End Sub
Error เกิดจาก Answer ยังไม่ได้กำหนดให้เป็นตัวแปร เลยครับ แต่มีการนำมาเรียกใช้แล้ว เลยเกิดปัญหาดังกล่าว
