Question

该代码有什么问题？我无法弄清楚为什么我会一直收到这个错误。

Sub renttt()
Dim rent_list As Recordset
Dim query As String

query = "SELECT * FROM (Rent INNER JOIN Movies ON Rent.Movie_ID = Movies.ID) INNER JOIN Customers ON Rent.Customer_ID = Customers.ID WHERE Rent.Movie_ID = '" & txtbxmovieID.Value & "' AND Rent.Date_Returned is Null;"
Set rent_list = CurrentDb.OpenRecordset(query)

If rent_list.RecordCount = 1 Then
        rent_List.MoveFirst
        txtbxname.Value = (rent_list![CusName])
        txtbxsurname.Value = (rent_list![Surname])
        txtbxcardID.Value = (rent_list![Id_Card_number])
        txtbxaddress.Value = (rent_list![Address])
        txtbxrented.Value = (rent_list![Date_Rent])
End If


End Sub

Answer 1

MovieId不是数字吗？如果是这样，没有引号：

WHERE Rent.Movie_ID = " & txtbxmovieID.Value & " AND ...

条件表达式中的访问运行时错误3464数据类型不匹配

1 个答案: