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是数字，请忽略最后一个引号。

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

2 个答案: