コードに間違いが見つかりません

Question

私はこのコードを持っており、何が間違っているのかわかりません。エラーは返されませんが、フィールドDate_Returnedは更新されません。助けてください。

私は、ダブル、トリプルチェックをすべてのフィールド名と持ち運びにくいが、途中でOKですしまし

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