Vấn đề với sự kiện BeforeDelConfirm ?

[glasseggs]

Cho mình hỏi chút nhé ,trong sự kiện BeforeDelConfirm của mình code như sau :

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Response = acDataErrContinue
If MsgBox("BAN MUÔN XÓA KHÁCH HÀNG NÀY KHÔNG ?", vbOKCancel, "CUSTOMER RELATION MANAGEMENT SYSTEM") = vbCancel Then
Cancel = True
End If
End Sub

Nút xoá bản ghi code như sau :

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

Không hiểu tại sao khi mình nhấn xoá 1 bản ghi ,câu hỏi xác nhận xoá hiện ra, nếu nhấn OK thì sẽ xoá bình thường ,nếu nhấn Cancel thì không xoá. Nhưng nếu nhấn Cancel thì khi đóng Form, Access cứ hỏi "Do you want to save changes to the design of form 'Customer' ? "
Không hiểu hay nó xung đột với sự kiện nào ?

Thanks mọi người !!!

 

[glasseggs]

Ðề: Vấn đề với sự kiện BeforeDelConfirm ?

Nếu trong sự kiện BeforeDelConfirm mình cắt đoạn code sau :

If MsgBox("BAN MUÔN XÓA KHÁCH HÀNG NÀY KHÔNG ?", vbOKCancel, "CUSTOMER RELATION MANAGEMENT SYSTEM") = vbCancel Then
Cancel = True
End If

Cho nó vào sự kiện OnDelete thì lại ngon lành,không xuất hiện câu hỏi đó nữa.
Nhưng mình vẫn muốn để nó ở BeforeDelConfirm hơn vì như thế khi xoá 1 bản ghi thì bản ghi đó tạm thời biến mất trên Form nên trông pro hơn.
Ai có cách khắc phục không ?
Thanks.

 

[phatnq2002]

Ðề: Vấn đề với sự kiện BeforeDelConfirm ?

Cho mình hỏi chút nhé ,trong sự kiện BeforeDelConfirm của mình code như sau :


Nút xoá bản ghi code như sau :


Không hiểu tại sao khi mình nhấn xoá 1 bản ghi ,câu hỏi xác nhận xoá hiện ra, nếu nhấn OK thì sẽ xoá bình thường ,nếu nhấn Cancel thì không xoá. Nhưng nếu nhấn Cancel thì khi đóng Form, Access cứ hỏi "Do you want to save changes to the design of form 'Customer' ? "
Không hiểu hay nó xung đột với sự kiện nào ?

Thanks mọi người !!!

Nút xóa bạn có thể hiệu chỉnh lại như sau xem sao:

DoCmd.acCmdDeleteRecords

 

[glasseggs]

Ðề: Vấn đề với sự kiện BeforeDelConfirm ?

Không được bác ơi . Nó báo lỗi biên dịch :
Compile error :
Method or data method not found

 

[phatnq2002]

Ðề: Vấn đề với sự kiện BeforeDelConfirm ?

Không được bác ơi . Nó báo lỗi biên dịch :
Compile error :
Method or data method not found

Xin lỗi, lệnh sai:

DoCmd.RunCommand acCmdDeleteRecord

 

[glasseggs]

Ðề: Vấn đề với sự kiện BeforeDelConfirm ?

Úi , Thanks bác nhé, vượt xa mong đợi.