Dim strSQL As String
strSQL = "更新语句"

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

'方法2
CurrentProject.Connection.Execute strSQL

0 回复,0 引用: 不显示操作查询的系统提示二种方法

添加回复

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。