不顯示操作查詢的系統(tǒng)提示二種方法

Dim strSQL As String
    strSQL = "更新語句"
    '方法1
    DoCmd.SetWarnings False'不顯示警告
    DoCmd.RunSQL strSQL
    DoCmd.setwarnints True'恢復顯示
    '方法2
    CurrentProject.Connection.Execute strSQL