基于Select的更新

Question

我正在尝试根据同一个表的其他记录中的数据更新表的一列。所有记录在＆＃34; CurrentDate＆＃34;中都有相同的日期。字段或为空。我想将具有空值的那些更改为与其余字段相同。

这是我的代码，但我收到语法错误：

Public Sub RiskVisual()
Dim db As DAO.Database
Set db = CurrentDb

---

DoCmd.RunSQL "UPDATE Hold3 SET CurrentDate = (SELECT CurrentDate FROM Hold3 LIMIT 1) WHERE CurrentDate IS NULL;"

End Sub

提前感谢您的帮助。

Answer 1

在MS Access中，“TOP 1”比“LIMIT 1”效果更好。您还需要指定何时寻找前1的非空的前1。尝试这样的事情：

UPDATE Hold3 SET Hold3.CurrentDate = (SELECT TOP 1 Hold3.CurrentDate FROM Hold3 WHERE (((Hold3.CurrentDate) Is Not Null))) WHERE (((Hold3.CurrentDate) Is Null));