ms-access - VBA 更新现有记录

Question

我正在寻找设置 VBA，如果新记录当前不存在(相同 ID 号)，则将其添加到表中，然后更新现有记录的所有列(相同 ID 号)。我能够设置插入语句，但出现更新错误。

下面的代码表明我有一个

Syntax error (missing operator) in query expression '[update].[date] from [update].

您提供的任何帮助都会非常有帮助。

Function Update()
    Dim dbs As Database
    Set dbs = CurrentDb

    dbs.Execute "Update historic_archive Set historic_archive.DATE = [update].[DATE] FROM [update], historic_archive WHERE [update].[id] = historic_archive.id;"

End Function

Answer 1

有两件事。1. 请阅读有关SQL更新命令的更多信息。2. 切勿使用类似于日期、更新等函数的名称。了解有关命名约定的更多信息。

'Below update command will update historic date with update table.date where both id's are same.


Function Update() 
    Dim dbs As Database 
    Set dbs = CurrentDb 

    dbs.Execute "UPDATE historic_archive inner join [UPDATE] ON [update].[id] = historic_archive.id " & _
    "SET historic_archive.[DATE] = [update].[DATE];"
End Function