Biến cố hủy bỏ Gồm các biến cố hủy bỏ sau

BeforeDelCo BeforeUpdat nfirm Format BeforeInsert Delete Print UnLoad Exit Filter  Chúng ta cũng có thể hủy bỏ biến cố bằng thao tác CancelEvent hay gán giá trị True vào tham số Cancel trong các thủ tục biến cố. e DblClick Open ApplyFilter NoData KeyPress MouseDown
Nội dung trích xuất từ tài liệu:
Biến cố hủy bỏ Gồm các biến cố hủy bỏ sau1) Biến cố hủy bỏ Gồm các biến cố hủy bỏ sau : BeforeDelCo BeforeUpdat nfirm e Format DblClick BeforeInsert Open Delete ApplyFilter Print NoData UnLoad KeyPress Exit MouseDown Filter  Chúng ta cũng có thể hủy bỏ biến cố bằng thao tác CancelEvent hay gán giá trị True vào tham số Cancel trong các thủ tục biến cố. Ví dụ :1) Chúng ta viết các lệnh trong thủ tục biến cốNoData của báo cáo. Biến cố NoData được xảyra khi Access phát hiện dữ liệu của báo cáokhông có, và khi đó chúng ta sẽ không mở biếncố đó ra. Private Sub Report_NoData(Cancel As Integer) MsgBox Khong co du lieu de xem bao cao, vbCritical Cancel = True Huy bo bien co mo bao cao End Sub2) Chúng ta muốn khi đóng một số biểu mẫu quan trọng thì hệ thống phải hỏi người sử dụng trả lời có thật sự muốn thoát ra không. Khi người sử dụng trả lời Yesthì hệ thống sẽ đóng biểu mẫu, ngược lại thì hủy bỏ biến cố đóng biểu mẫu. Để làm điều này chúng ta sử dụng thủ tục biến cố UnLoad. Private Sub Form_Unloađ(Cancel AsInteger) Dim traloi As Integer traloi = MsgBox(Ban that su muon thoat khong , vbQuestion + vbYesNo) If traloi = vbNo Then DoCmd.CancelEvent End If End Sub 3. Viết thông báo của riêng mình hỏi người sử dụng đồng ý xóa dữ liệu không trong biến cố BeforDelConfirm Private Sub Form_beforeDelConfirm(Cancel As Integer, Response As Integer) Dim traloi As Integer Response = acDataErrContinue traloi = MsgBox(Xoa hay khong,vbQuestion + vbYesNo) If traloi = vbNo Then Cancel = True End IfEnd Sub