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

我总是在日期“#10.08.2017 15:27:16”中出现运行时错误3075: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 & "';"

当我将#“&”格式和#引号更改为“&”格式时

然后我得到运行时错误3464:Dataconflict

Of_Timestamp具有日期类型，Of_ID自动填充整数作为主键

谢谢你的回复

Luca使用有效的格式：

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 & ";"

但是，您可能只会侥幸逃脱：

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

请使用有效的格式：

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 & ";"

但是，您可能只会侥幸逃脱：

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

---

正确使用Access中的日期。在Access中正确使用日期。为什么所有的\字符？？？@Brad:这是因为这里的斜杠和冒号不是文字，而只是本地化日期和时间分隔符的占位符。因此，这些可能不是Access SQL所接受的内容。反斜杠转义字符；因此，在任何环境中，在格式化字符串中强制使用斜杠或冒号。因此，同样的字符串可能在另一个系统上产生

2017-08-10 11:53.59

，在我的系统上，它输出

2017/08/10 11:53:59

？@Brad:是的。日期字符串将被接受，但作为本地化分隔符的点和_空格（！）确实会导致问题。@Gustav感谢您的回复，但当我按照您所写的那样执行时，我会收到运行时错误3464:Dataconflict。我真的很困惑，因为我所做的一切都不起作用。为什么所有的\字符？？？@Brad：这是因为这里的斜杠和冒号不是文字，而只是本地化日期和时间分隔符的占位符。因此，这些可能不是Access SQL所接受的内容。反斜杠转义字符；因此，在任何环境中，在格式化字符串中强制使用斜杠或冒号。因此，同样的字符串可能在另一个系统上产生

2017-08-10 11:53.59

，在我的系统上，它输出

2017/08/10 11:53:59

？@Brad:是的。日期字符串将被接受，但作为本地化分隔符的点和_空格（！）确实会导致问题。@Gustav感谢您的回复，但当我按照您所写的那样执行时，我会收到运行时错误3464:Dataconflict。我真的很困惑，因为我所做的一切都不起作用。