Question

我在数据表视图中有一个子表单，其recordource是一个临时表。因此，每当用户在表单上插入新事务时，她就会将新记录插入临时表。子窗体已设置，因此用户无需输入事务日期，这意味着子窗体中的数据表不显示日期字段。日期通过主窗体中的文本框插入。

每当插入记录时，我都会使用子表单的AfterUpdate sub和SQL UPDATE语句将日期插入临时表。但是我收到了语法错误。这是我使用的代码：

Dim db As Database
Dim currentID As Integer
Dim transactionDate As Date
Dim strSQL As String

Private Sub Form_AfterUpdate()
    Set db = CurrentDb
    currentID = Me!txtID
    transactionDate = Me.Parent!txtDate

    strSQL = "UPDATE tblTempTable " _
    & "SET transactionDate = " & transactionDate _
    & " WHERE ID = " & currentID & ";"

Debug.Print (strSQL)
db.Execute strSQL

End Sub

正如您所看到的那样，我在执行前立即引用了SQL语句并打印出来：UPDATE tblTempTable SET transactionDate = 17.10.2016 WHERE ID = 55;但我收到了一个sytnax错误：Syntax error in number in query expression '17.10.201'。当我使用& "SET transactionDate = #" & transactionDate & "#" _的标签内的日期时，我也会收到语法错误：Syntax error in date in query expression '#17.10.2016'。同时Debug.Print输出：UPDATE tblTempTable SET transactionDate = #17.10.2016# WHERE ID = 56;

所以似乎声明的结尾被截断了，但我不明白为什么。有人可以帮帮我吗？

Answer 1

尝试以ISO格式提供日期：

UPDATE tblTempTable SET transactionDate = #2016-10-17# WHERE ID = 55;

Answer 2

如果是今天的日期，请使用日期：

strSQL = "UPDATE tblTempTable " & _ 
"SET transactionDate = Date() " & _
"WHERE ID = " & currentID & ";"

或使用格式：

strSQL = "UPDATE tblTempTable " & _ 
"SET transactionDate = #" & Format(transactionDate, "yyyy\/mm\/dd") & "# " & _
"WHERE ID = " & currentID & ";"

MS Access VBA - 语法错误，截断更新sql语句

2 个答案: