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

dim strSQL As String
strSQL = " update语句"

方法1
DoCmd。SetWarnings False '不显示警告
docmd . runsqlstrsql
docmd . set warnings true '恢复显示。

方法2
current project . connection . execute strql