访问 VB 错误 3061:参数太少，预期为 1

Question

我正在编写一个简单的SQL查询来更新测试数据库中的表，但是遇到了问题：

Public Sub UpdateStatus(TypeName As String)
Dim DBase As Database
Dim SQLCommand As String
Dim qdfChange As QueryDef
SQLCommand = "Update Case SET Status = 1 WHERE TypeName = '" & TypeName & "';"
Debug.Print SQLCommand
Set DBase = OpenDatabase("C:TestDatabaseCaseSet.accdb")
Set qdfChange = DBase.CreateQueryDef("", SQLCommand)
qdfChange.Execute
End Sub

表大小写中的字段名称与我的 SQL 查询中的字段名称匹配。

（如果这是任何值，则此函数属于表单）

Answer 1

大小

写是一个保留字，TypeName 是一个 VBA 函数。 这使得它们在数据库对象名称方面的选择很糟糕。

如果无法重命名它们，请在 SQL 语句中将这些名称括起来，以便数据库引擎将它们识别为对象名称。

SQLCommand = "Update [Case] SET Status = 1 WHERE [TypeName] = '" & TypeName & "';"