找不到代碼有問題

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 

我有雙重和三重檢查所有的字段名和大公是OK的方式...

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