#不显示操作查询的系统提示二种方法 搜索结果
Dim strSQL As String strSQL = "更新语句" '方法1 DoCmd.SetWarnings False'不显示警告 DoCmd.RunSQL strSQL DoCmd.setwarnints True'恢复显示 '方法2 CurrentProject.Connection.Execute strSQL
