运行时错误3075 VBA访问格式日期错误

Question

我总是得到运行时错误3075：日期'＃10.08.2017 15:27:16'中的Syntaxerror。我的代码如下所示：

Dim ActID As Integer 
ActID = Me!Of_ID 

DoCmd.RunSQL "UPDATE BD_Offer SET BD_Offer.Of_Timestamp = #" & Format(Now, "DD.MM.YYYY HH:NN:SS") & "# WHERE BD_Offer.Of_ID = '" & ActID & "';" 

当我改变＃” &格式& “＃引号“” &格式&“”

DoCmd.RunSQL "UPDATE BD_Offer SET BD_Offer.Of_Timestamp = '" & Format(Now, "DD.MM.YYYY HH:NN:SS") & "' WHERE BD_Offer.Of_ID = '" & ActID & "';" 

然后我得到的运行时错误3464：数据冲突。

Of_Timestamp具有Datetyp和Of_ID自动填充整数作为主键。

感谢答复

卢卡

Answer 1

使用有效的格式：

BD_Offer.Of_Timestamp = #" & Format(Now, "yyyy\/mm\/dd hh\:nn\:ss") & "# 

当Of_ID是一个自动编号，你还必须提供一个数字参数：

"UPDATE BD_Offer SET BD_Offer.Of_Timestamp = #" & Format(Now, "yyyy\/mm\/dd hh\:nn\:ss") & "# WHERE BD_Offer.Of_ID = " & ActID & ";" 

但是，您可能会简单地接受y与：

"UPDATE BD_Offer SET BD_Offer.Of_Timestamp = Now() WHERE BD_Offer.Of_ID = " & ActID & ";"