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

1) Biến cố hủy bỏ Gồm các biến cố hủy bỏ sau : BeforeDelCo nfirm BeforeUpdat 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ảy ra khi Access phát hiện dữ liệu của báo cáo không có, và khi đó chúng ta sẽ không mở biến cố đó 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 Sub 2) 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 As Integer) 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 If End Sub . 1) Biến cố hủy bỏ Gồm các biến cố hủy bỏ sau : BeforeDelCo nfirm BeforeUpdat e Format DblClick BeforeInsert Open. 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. 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 As Integer)