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

文章翻译 文章翻译
文章编号: 229802 - 查看本文应用于的产品
中级用户:要求具备基本的宏、编码和互操作技能。

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

展开全部 | 关闭全部

概要

本文说明如何在 Access 应用程序中使用 Application.SetOption 方法来禁用警告消息。

更多信息

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

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

要在一个简单的单窗体应用程序中做到这一点,请按照下列步骤操作:
  1. 启动 Access,然后创建一个名为 TestRun 的空数据库。
  2. 从 Northwind.mdb 示例数据库中导入 Customers 表。
  3. 在设计视图中创建一个新窗体,然后向详细资料部分中添加一个未绑定的组合框。
  4. 为该组合框设置下列属性:
    Name:cboCountry
    Row 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", 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. 关闭 Visual Basic 编辑器,然后保存并关闭窗体。
  19. 打开 DeleteCustomers 窗体,选择一个国家/地区,然后单击命令按钮。

    请注意,没有显示任何警告对话框。
在本示例中,当加载 DeleteCustomers 窗体时,应用程序的确认选项被禁用;当卸载该窗体时,应用程序的确认选项被重新启用。在更为复杂的应用程序中,您可以在启动窗体或切换面板中完成相同的操作。

属性

文章编号: 229802 - 最后修改: 2006年11月23日 - 修订: 4.2
这篇文章中的信息适用于:
  • Microsoft Office Access 2003
  • Microsoft Access 2002 标准版
  • Microsoft Visual Basic for Applications
关键字:?
kbhowto KB229802
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com