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