Ms access MS访问错误91:未设置对象变量或带块变量

错误91：运行此代码时引发对象变量或未设置块变量：

Private Sub Cmdsave_Click()
    Dim db As database
    For i = 0 To LISTQTY.ListCount - 1 Step 1
        db.Execute "Updatable tblstock set boxQty = boxQty + " & LISTQTY.Column(1, i) & "  where PID=" & Me.LISTQTY.Column(0, i) & ""
        'CurrentDb.Updatable
    Next
End Sub

---

未设置数据库变量

Private Sub Cmdsave_Click()
    Dim db As database
    Set db = CurrentDb
    For i = 0 To LISTQTY.ListCount - 1 Step 1
        db.Execute "Updatable tblstock set boxQty = boxQty + " & LISTQTY.Column(1, i) & "  where PID=" & Me.LISTQTY.Column(0, i) & ""
    Next
End Sub

或者只需使用

CurrentDb

---

标题中没有大写字母，没有内容，没有格式代码。我甚至不能给你一个E来表示努力。你应该阅读[how to ask}。以后请努力。老实说，我不应该编辑你的帖子或发布答案。

Update

而不是

Update

？

CurrentDb..Execute "Updatable tblstock set boxQty = boxQty + " & LISTQTY.Column(1, i) & "  where PID=" & Me.LISTQTY.Column(0, i) & ""