Làm thế nào để sử dụng SetOption để tắt thông báo cảnh báo trong ứng dụng Access

Vừa phải: Đòi hỏi vĩ mô cơ bản, mã hóa và kỹ năng tương tác.


Bài viết này chỉ áp dụng cho cơ sở dữ liệu Microsoft Access (.mdb hoặc .accdb).

Tóm tắt

Bài viết này hướng dẫn bạn cách sử dụng phương pháp Application.SetOption để tắt thông báo cảnh báo trong ứng dụng Access.

Thông tin

Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể, nhưng chúng sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn. Hành động truy vấn và các quy trình thêm, xoá hoặc sửa đổi dữ liệu thông thường cho người dùng với cảnh báo có dữ liệu để sửa đổi. Trong thời gian chạy ứng dụng, Tuy nhiên, nó thường là mong muốn tắt cảnh báo do kiểm tra và biện pháp phòng ngừa thường không liên quan đến kiểm soát của người dùng.

Bạn có thể thực hiện việc này bằng cách sử dụng phương pháp SetWarnings đối tượng DoCmd , nhưng bạn có thể muốn tắt cảnh báo cho các ứng dụng toàn bộ. Để làm điều đó, bạn có thể sử dụng phương pháp SetOption đối tượng ứng dụng . Tuy nhiên, nếu bạn làm như vậy, bạn nên bật cũng cảnh báo trở lại khi thoát ứng dụng.


Để thực hiện việc này trong một ứng dụng đơn giản, một biểu mẫu, hãy làm theo các bước sau:

  1. Bắt đầu truy cập, và sau đó tạo cơ sở dữ liệu trống tên TestRun.

  2. Chuyển nhập bảng khách từ cơ sở dữ liệu mẫu Northwind.mdb.

  3. Tạo một mẫu mới trong cửa sổ thiết kế, và sau đó thêm một hộp tổ hợp rời phần chi tiết.

  4. Đặt thuộc tính hộp tổ hợp sau:
    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country;

  5. Thêm một nút lệnh vào phần chi tiết biểu mẫu và đặt tên là cmdDelete.

  6. Đặt thuộc tính OnClick nút lệnh trình sự kiện sau đây:

    DoCmd.OpenQuery "qryDeleteCustomers"
  7. Đóng Visual Basic Editor.

  8. Lưu dạng DeleteCustomers, và sau đó đóng lại.

  9. Tạo truy vấn mới trong cửa sổ thiết kế, và sau đó Thêm khách hàng.

  10. Access 2002 hoặc Access 2003, bấm Xoá truy vấn trên menu truy vấn .

    Trong Access 2007, bấm vào xoá nhóm Truy vấn loại trên tab thiết kế .

  11. Kéo dấu hoa thị (*) từ danh sách trường cột đầu tiên của mạng lưới thiết kế truy vấn, và sau đó kéo trường quốc gia cột thứ hai.

  12. Hàng tiêu chuẩn quốc gia cột, gõ dòng sau:
    Forms![DeleteCustomers]![cboCountry]

  13. Lưu truy vấn qryDeleteCustomers, và sau đó đóng lại.

  14. Mở biểu mẫu DeleteCustomers dạng xem.

  15. Chọn một quốc gia từ hộp tổ hợp, bấm vào nút lệnh và ghi lại cảnh báo xuất hiện. Bấm không có trong hộp thoại cảnh báo.

  16. Mở biểu mẫu trong cửa sổ thiết kế, và sau đó trên thanh công cụ, bấm vào nút mã .

  17. Trong cửa sổ mã nhập hoặc dán các quy trình sau:

    Private Sub Form_Load()

    Application.SetOption "Confirm Action Queries", 0
    Application.SetOption "Confirm Document Deletions", 0
    Application.SetOption "Confirm Record Changes", 0

    End Sub

    Private Sub Form_Unload(Cancel As Integer)

    Application.SetOption "Confirm Action Queries", 1
    Application.SetOption "Confirm Document Deletions", 1
    Application.SetOption "Confirm Record Changes", 1

    End Sub
  18. Đóng Visual Basic Editor, và sau đó lưu và đóng mẫu.

  19. Mở mẫu DeleteCustomers, chọn quốc gia và sau đó bấm vào nút lệnh.


    Lưu ý rằng không có hộp thoại cảnh báo xuất hiện.

Trong ví dụ này, các ứng dụng xác nhận tùy chọn bị vô hiệu hoá khi DeleteCustomers mẫu được tải và bật lại khi bỏ nạp. Trong một ứng dụng phức tạp hơn, bạn có thể thực hiện thao tác tương tự khởi động mẫu hoặc điện.

Bạn cần thêm trợ giúp?

Phát triển các kỹ năng của bạn
Khám phá nội dung đào tạo
Sở hữu tính năng mới đầu tiên
Tham gia Microsoft dùng nội bộ

Thông tin này có hữu ích không?

Cảm ơn phản hồi của bạn!

×