运行时错误2471您作为查询参数输入的表达式产生此错误：使用两个dlookup时出现'Add'

Question

我使用两个dlookup语句检查用户是否具有编辑或添加记录的权限时遇到问题。以下是脚本。该错误来自Dlookup for ADD语句：

Private Sub Form_Current()
If (DLookup("Edit", "QryUserAction", "UserName = '" & [TempVars]![UserName].[Value] & "' And FormName = '" & Me.Name & "'")) = False Then
    Me.btnEdit.Enabled = False

Else

    Me.btnEdit.Enabled = True
End If
If (DLookup("Add", "QryUserAction", "UserName = '" & [TempVars]![UserName].[Value] & "' And FormName = '" & Me.Name & "'")) = False Then
    Me.btnAdd.Enabled = False

Else

    Me.btnAdd.Enabled = True
End If
End Sub

Answer 1

ADD是JET保留字。评论http://allenbrowne.com/AppIssueBadWord.html

这可能引起混乱。

不应将保留字用作任何对象的名称。如果这样做，则将其括在[]中。 "[Add]"

也建议在命名约定中不要使用空格或标点/特殊字符。