MS Access 数据库错误

Question

我在这一行收到错误 3061 参数太少

Set rs = db.OpenRecordset(strSQL)

这是完整代码

Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset ''Requires reference to Microsoft DAO x.x Library
Set db = CurrentDb()
MsgBox Me.LName
MsgBox Me.EmpID
strSQL = "SELECT LastName AS damn FROM [Employees]" & _
                 "WHERE [Employees].EmployeeID = Me.EmpID"
Debug.Print strSQL
Set rs = db.OpenRecordset(strSQL)
MsgBox rs!damn
Me.LName = rs!damn
MsgBox Me.LName
rs.Close
db.Close

Answer 1

我能假设的最好的是

"WHERE [Employees].EmployeeID = Me.EmpID"

应该是

"WHERE [Employees].EmployeeID = " & Me.EmpID

此外，HansUp 还为您提供了一个很好的方法来解决这个问题。

MS Access 数据库错误

MS Access db error

database

ms-access

vba