2006年5月15日
Dim strSQL As String
strSQL = "更新语句"
'方法1
DoCmd.SetWarnings False'不显示警告
DoCmd.RunSQL strSQL
DoCmd.setwarnints True'恢复显示
'方法2
CurrentProject.Connection.Execute strSQL
2006年5月15日
Dim strSQL As String
strSQL = "更新语句"
'方法1
DoCmd.SetWarnings False'不显示警告
DoCmd.RunSQL strSQL
DoCmd.setwarnints True'恢复显示
'方法2
CurrentProject.Connection.Execute strSQL
0 回复,0 引用: 不显示操作查询的系统提示二种方法
添加回复