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

Chia sẻ: Nguyễn Phương Hà Linh Linh | Ngày: | Loại File: PDF | Số trang:4

Thêm vào BST

Báo xấu

39
lượt xem 3
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Biến cố hủy bỏ Gồm các biến cố hủy bỏ sau

1) 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ả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