• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hỏi thêm về lệnh xóa record

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Hỏi thêm về lệnh xóa record
• Hỏi thêm về lệnh xóa record

• Hỏi thêm về lệnh xóa record

  uronbeo > 07-06-12, 10:01 PM

  Mình có tạo lệnh xóa 1 record như bên dưới nhưng ko chạy
  
  Private Sub cmdDelete_Click()
  On Error GoTo Err_cmdDelete_Click
  
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  
  Exit_cmdDelete_Click:
  Exit Sub
  
  Err_Delete_Click:
  MsgBox Err.Description
  Resume Exit_cmdDelete_Click
  
  End Sub
  
  Nó báo lỗi:
  Complie eror: Label not defined
  
  Xin các bạn tư vấn
  

  ---

  Đã thử 1 lệnh khác
  
  Make a Module like:
  Code:
  
  Function DeleteARecord
  If MsgBox ("Do you wish to delete this record?", vbYesNo, "Delete Confirmation") = vbYes Then
  If MsgBox ("Are you SURE you want to delete this record?" & vbCrLf & _
  "This will permanently delete the record.", vbYesNo, "2nd Delete Confirmation") = vbYes Then
  DoCmd.RunCommand acCmdDeleteRecord
  End If
  End If
  End Function
  
  Then in the On Click Event for the button in the form:
  
  Code:
  
  Private Sub DeleteButton_Click()
  DeleteARecord
  End Sub
  
  
  Nó lại báo lỗi đoạn DoCmd.RunCommand acCmdDeleteRecord

• RE: Hỏi thêm về lệnh xóa record

  haquocquan > 07-06-12, 10:48 PM

  Up file lên xem sao

• RE: Hỏi thêm về lệnh xóa record

  uronbeo > 08-06-12, 09:59 PM

  Cần gì up file
  
  Thiếu thư viện rồi
  
  Tự hỏi tự trả lời
  
  

• RE: Hỏi thêm về lệnh xóa record

  thanhliem0906 > 21-06-12, 05:35 PM

  Nếu muốn xóa Record có điều kiện thì nên dùng biến Recordset và dùng thuộc tính rst.delete rất hay
• Bài trước Bài tiếp