你目前正处于脱机状态,正在等待 Internet 重新连接

如何在 Access 应用程序中使用 SetOption 来禁用警告消息

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

中级用户:要求具备基本的宏、编码和互操作技能。

本文仅适用于 Microsoft Access 数据库 (.mdb)。

概要
本文说明如何在 Access 应用程序中使用 Application.SetOption 方法来禁用警告消息。
更多信息
Microsoft 提供的编程示例只是为了进行说明,没有任何明示或暗示保证,包括(但不限于)针对特定用途的适销性和/或适用性的暗示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持人员可以帮助解释某个特定过程的功能,但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需要。如果您的编程经验不够丰富,您可能需要与 Microsoft 认证伙伴联系或者拨打 Microsoft 收费咨询电话 (800) 936-5200。有关 Microsoft 认证伙伴的更多信息,请访问下面的 Microsoft Web 站点:有关可用的支持选项以及如何与 Microsoft 联系的更多信息,请访问下面的 Microsoft Web 站点:操作查询以及其他追加、删除或修改数据的进程通常会向用户显示一条警告消息,以警告用户数据将被修改。不过,在运行时应用程序中,禁用这些警告消息通常是可取的,因为对进程操作进行阻止和预防通常超出了用户的控制范围。

可使用 DoCmd 对象的 SetWarnings 方法来做到这一点,但您可能希望禁用整个应用程序的警告。为此,可以使用 Application 对象的 SetOption 方法。但是,如果您这样做,您还应该在应用程序退出时重新启用警告。

要在一个简单的单窗体应用程序中做到这一点,请按照下列步骤操作:
  1. 启动 Access,然后创建一个名为 TestRun 的空数据库。
  2. 从 Northwind.mdb 示例数据库中导入 Customers 表。
  3. 在设计视图中创建一个新窗体,然后向详细资料部分中添加一个未绑定的组合框。
  4. 为该组合框设置下列属性:
    Name:cboCountryRow Source:SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 					
  5. 向该窗体的详细资料部分中添加一个命令按钮,并将其命名为 cmdDelete。
  6. 将该命令按钮的 OnClick 属性设置为以下事件过程:
    DoCmd.OpenQuery "qryDeleteCustomers"					
  7. 关闭 Visual Basic 编辑器。
  8. 将该窗体保存为 DeleteCustomers,然后将其关闭。
  9. 在设计视图中创建一个新查询,然后添加 Customers 表。
  10. 查询菜单上,单击删除查询
  11. 将星号 (*) 从字段列表中拖到查询设计网格的第一列中,然后将 Country 字段拖到第二列中。
  12. 在 Country 列的 Criteria 行中,键入以下内容:
    Forms![DeleteCustomers]![cboCountry] 					
  13. 将该查询保存为 qryDeleteCustomers,然后将其关闭。
  14. 在窗体视图中打开 DeleteCustomers 窗体。
  15. 从组合框中选择一个国家/地区,单击命令按钮,并注意显示的警告。在警告对话框中单击
  16. 在设计视图中打开该窗体,然后在工具栏上单击代码按钮。
  17. 在代码窗口中,键入或粘贴下面的过程:
    Private Sub Form_Load()   Application.SetOption "Confirm Action Queries", 0   Application.SetOption "Confirm Document Deletions", 0   Application.SetOption "Confirm Record Changes", 0End SubPrivate Sub Form_Unload(Cancel As Integer)    Application.SetOption "Confirm Action Queries", 1    Application.SetOption "Confirm Document Deletions", 1    Application.SetOption "Confirm Record Changes", 1End Sub					
  18. 关闭 Visual Basic 编辑器,然后保存并关闭窗体。
  19. 打开 DeleteCustomers 窗体,选择一个国家/地区,然后单击命令按钮。

    请注意,没有显示任何警告对话框。
在本示例中,当加载 DeleteCustomers 窗体时,应用程序的确认选项被禁用;当卸载该窗体时,应用程序的确认选项被重新启用。在更为复杂的应用程序中,您可以在启动窗体或切换面板中完成相同的操作。
OfficeKBHowTo inf supress keep from appearing hold back don't show appear ACC2002
属性

文章 ID:229802 - 上次审阅时间:11/23/2006 07:49:23 - 修订版本: 4.2

Microsoft Office Access 2003, Microsoft Access 2002 标准版, Microsoft Visual Basic for Applications

  • kbhowto KB229802
反馈