Microsoft Access中的更新SQL有什么问题

Question

我正在使用以下代码来更新数据库中的字段。

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

但是，我注意到更新语句不起作用。任何人都可以建议在Microsoft Access中在VBNET中进行更新查询的另一种方法

我收到的错误：

您输入的表达式是指已关闭或不存在的对象

Answer 1

您尚未初始化记录集变量Lrs。

因此，使用Lrs("Last_Nbr")将引发此错误。

如果要将表中的值增加一，只需执行

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

另请参见此处：How to debug dynamic SQL in VBA