更新SQL错误：您输入的表达式引用的对象已关闭或不'；不存在

我正在使用下面的代码更新数据库中的一个字段

Dim db             As Database
Dim LSQL           As String
Dim Lrs            As DAO.Recordset

Set db = CurrentDb()

LUpdate = "Update tblNumber"
LUpdate = LUpdate & " set LastNbr = " & Lrs("Last_Nbr") + 1
LUpdate = LUpdate & " where Year = '" & strYear& "'"

CurrentDb.Execute LUpdate, dbFailOnError

我收到的错误是：

输入的表达式引用的对象已关闭或不存在

---

您尚未初始化记录集变量

Lrs

因此，使用

Lrs（“Last\u Nbr”）

将抛出此错误

如果要将表中的值增加1，只需执行以下操作

Update tblNumber
Set LastNbr = Last_Nbr + 1
Where [Year] = ...

另请参见此处：

---

不确定您是否可以这样使用年份名称。可能是一个保留关键字，您需要在[Year]周围添加方括号。最后，您确定列Year在数据库表中包含字符串值吗？您正在使用字符串搜索“年份”列中的值，但这无法生成预期的结果。试着去掉strYearYEAR周围的撇号，它是一个保留字。查看此参考：（了解访问保留字和符号）[VBA和VB.NET不一样。请正确标记问题，并在选择前阅读标记信息。

Access

tag不引用Access数据库软件…（）@andarvi:此问题与您链接的问题无关。