打印本文 
关闭窗口 Dim strSQL As String
strSQL = "更新语句"
'方法1
DoCmd.SetWarnings False'不显示警告
DoCmd.RunSQL strSQL
DoCmd.setwarnints True'恢复显示
'方法2
CurrentProject.Connection.Execute strSQL
打印本文 关闭窗口 | 打印本文 关闭窗口 |
|
| 不显示操作查询的系统提示二种方法 | |
| 作者：佚名 文章来源：不详 点击数 更新时间：2008/6/19 14:51:35 文章录入：杜斌 责任编辑：杜斌 | |
|
|
|
|
Dim strSQL As String '方法1 '方法2
|
|
| 打印本文 关闭窗口 |