Question

我有这个代码，我无法弄清楚它有什么问题。它不会返回任何错误，但字段Date_Returned没有得到更新。请帮忙。

Private Sub txtbxret_Click()
Dim query As String
query = "UPDATE Rent SET Date_Returned = '" & Date & "' WHERE Date_Rent = " & txtrented.Value & " AND Customer_ID = " & txtbxcustID.Value & " AND Movie_ID = " & txtbxmovID.Value
DoCmd.RunSQL (query)


End Sub

我已经对所有的字段名称进行了双重和三重检查，顺便说一下，这是好的...

Answer 1

您必须在SQL中使用日期值的字符串表达式的正确格式：

query = "UPDATE Rent SET Date_Returned = Date() WHERE Date_Rent = #" & Format(txtrented.Value, "yyyy\/mm\/dd") & "# AND Customer_ID = " & txtbxcustID.Value & " AND Movie_ID = " & txtbxmovID.Value

找不到代码有什么问题

1 个答案: