MS Access：为什么我会收到“无效使用属性”错误？

Question

使用此代码时出现标题错误：

Private Sub Command12_Click()

    Dim dbsCurrent As Database
    Set dbsCurrent = CurrentDb
    Dim query As QueryDef
    Dim sql As String

    item_entered = Me.Text314.Value

    sql = "Update tbl_FilmZipInfo Set qty_per_unit = Me.Text317 WHERE [item] = item_entered ;"

    query = CurrentDb.CreateQueryDef("UpdateFilmZip", sql)

    query.Execute

End Sub

在我运行 Sub 之后，“Private Sub Command12_Click()”行以黄色突出显示，“query =”以蓝色突出显示（与人类复制某些内容时相同的蓝色突出显示）。有人知道我为什么会收到此错误吗？这里的目标是更新表中的特定记录。

Answer 1

分配对象变量时必须使用Set关键字：

Set query = CurrentDb.CreateQueryDef("UpdateFilmZip", sql)

Answer 2

你必须正确连接：

sql = "Update tbl_FilmZipInfo Set qty_per_unit = " & Me!Text317.Value & "  WHERE [item] = '" & item_entered & "';"

如果 item_entered 是数字，则省略最后的引号。