Access VBA Docmd.OpenQuery 可以运行更新查询，但 Currentdb.Excecute 不能

Question

我创建了一个保存的更新查询，如下所示，它具有控制值和IIf函数。

UPDATE SYS_AAAA_AAAH 
SET SYS_AAAA_AAAH.AAK = AAA & " " & AAB & IIf(IsNull(AAC),"","(" & AAC & ")") & IIf(IsNull(AAF),""," not null") & " comment '" & AAH & "',"
WHERE (((SYS_AAAA_AAAH.AAO)=[forms]![frmAdmiTabl]![CombSAAO]));

DoCmd.OpenQuery可以在Currentdb.Execute给出错误消息"参数太少"时运行它。我创建了另一个保存的更新查询，没有来自控件或函数的输入，并且 Currentdb.Execute 工作了。我不想看到来自Docmd.OpenQuery的警告消息，也不想通过打开和关闭警告来弄乱。无论如何，Currentdb.Execute在这方面工作？

Answer 1

当您想用另一列的值和IIf函数更新某些特定记录的列时，最好使用DAO.recordsetedit和update

Dim Rs_AAAH As DAO.Recordset
Set Rs_AAAH = CurrentDb.OpenRecordset("select * from Table where AAO='" & Me.CombSAAO.Value & "'", dbOpenDynaset)
Rs_AAAH.MoveFirst
Do Until Rs_AAAH.EOF
With Rs_AAAH
.Edit
.Fields("AAK").Value = Rs_AAAH.Fields("AAA") & " " & Rs_AAAH.Fields("AAB") & IIf(IsNull(Rs_AAAH.Fields("AAC")), "", "(" & Rs_AAAH.Fields("AAC") & ")") & IIf(IsNull(Rs_AAAH.Fields("AAF")), "", " not null") & " comment '" & Rs_AAAH.Fields("AAH") & "',"
.Update
End With
Rs_AAAH.MoveNext
Loop
Rs_AAAH.Close
Set Rs_AAAH = Nothing