Access VBA用CurrentDb.Execute还是DoCmd.RunSQL保证SQL顺序执行？

你当前使用CurrentDb.Execute的写法已经可以满足需求，Access的CurrentDb.Execute默认是同步阻塞执行，会等前一条SQL语句完全执行完成、所有数据修改生效后，才会运行下一行代码，不会出现后一条查询先执行的问题，完全适配sql_update2依赖sql_update1修改结果的场景。

• CurrentDb.Execute：无默认弹窗，执行过程全程阻塞后续代码运行，建议额外增加dbFailOnError参数，一旦SQL执行出错会直接抛出错误，避免静默失败导致数据逻辑异常。
• DoCmd.RunSQL：默认会弹出更新行数确认弹窗，需要手动点击才能继续执行，仅适合单条SQL手动运行的场景；即使通过DoCmd.SetWarnings False关闭弹窗，也会屏蔽执行报错提示，排查问题难度高，不适合多SQL批量循环的场景。

Dim Counter As Integer
Counter = 1
' 开启错误捕获，避免异常直接中断无提示
On Error GoTo ErrHandler

Do Until Counter = 7
    CurrentDb.Execute "sql_update1", dbFailOnError
    CurrentDb.Execute "sql_update2", dbFailOnError
    CurrentDb.Execute "sql_update3", dbFailOnError
    
    Counter = Counter + 1
Loop

MsgBox "所有更新操作已完成，共执行" & Counter - 1 & "轮"

ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox "执行出错，错误号：" & Err.Number & "，错误信息：" & Err.Description
    Resume ExitHandler

内容的提问来源于stack exchange，提问作者Clink