不显示操作查询的系统提示二种方法

2026-02-07
Dim strSQL As String
  strSQL = "更新语句"

  '方法1
  DoCmd.SetWarnings False'不显示警告
  DoCmd.RunSQL strSQL
  DoCmd.setwarnints True'恢复显示

  '方法2
  CurrentProject.Connection.Execute strSQL