Question

继续获取运行时错误3061，其中以下脚本位于Acces中。调试器报告最后一行的问题，但对于我的生活，我看不出问题是什么。非常感谢任何帮助。

Dim db As Database

Dim salers As DAO.Recordset 'Sale

Set db = CurrentDb

Dim saleQuery As String

saleQuery = "SELECT * FROM Sales WHERE salesID = " & Me.saleID.Value & ";"

Set salers = db.OpenRecordset(saleQuery)

Answer 1

这个错误几乎总是意味着某些东西拼写错误，或者不存在。因此，请确保Sales和salesID存在且在查询中拼写正确。

如果可以，请查看Me.saleID.Value。如果这是一个字符串，则查询将用引号括起来：

saleQuery = "SELECT * FROM Sales WHERE salesID = '" & Me.saleID.Value & "';"

注意＆＃39;围绕saleID值。

运行时错误'3061'参数太少。预期1

1 个答案: