使用DOCMD.RUNSQL 执行更新语句时，需要在执行语句前加DoCmd.SetWarnings False来屏幕提示
DoCmd.SetWarnings False
DOCMD.RUNSQL  “你的SQL"
DoCmd.SetWarnings True

直接用EXECUTE 本身不会有任何动作提示
ADO方法：
Currentproject.connection.execute "你的SQL"

DAO方法：
CurrentDb.Execute ”你的SQL“