Access通过VBA执行SQl如何不提示确认消息


如何让Access在执行VBA时,不提示警告? 例如:正常情况下我们执行插入或删除的时候,会提示我们操作了多少行数据,但有些场景部门并不希望它提示出来,因为如果用户不点击“确认”或“取消”,代码就无法继续往下执行。 那么如何设置才能不显示提示信息呢? 有一下两种方案:

  • 执行DoCmd.SetWarnings False命令关闭系统提示和警告信息。 示例:
    Dim strSQL As String
    strSQL = "更新语句"
    '方法1
    DoCmd.SetWarnings False'不显示警告
    DoCmd.RunSQL strSQL
    DoCmd.setwarnints True'恢复显示
  • 方法2
    CurrentProject.Connection.Execute strSQL