首次使用Case语句遇语法错误，涉及表名[Impact]求助

看起来你是在Access环境里尝试给字段赋值，但混淆了VBA代码和查询SQL的语法规则，这才导致了报错。咱们分两种常见场景来解决：

场景1：用VBA代码操作表记录 #

你原来的代码缺少了对记录集的引用（VBA不知道[Impact]是哪个表的字段），而且语法不完整。正确的写法应该是先打开目标表的记录集，遍历每条记录后再用Select Case判断赋值：

Dim rs As Recordset
' 替换成你的实际表名
Set rs = CurrentDb.OpenRecordset("YourTable")

Do While Not rs.EOF
    ' 用rs!字段名来引用表中的字段
    Select Case rs![Impact]
        Case 0
            rs![New Impact] = "1"
            ' 别忘了更新记录到表中
            rs.Update
    End Select
    rs.MoveNext
Loop

' 用完记录集要关闭清理
rs.Close
Set rs = Nothing

注意：如果New Impact是数字类型字段，把"1"改成1（去掉引号）。

场景2：在Access查询（比如更新查询）中实现逻辑 #

Access的SQL语法不支持Select Case，你需要用IIF或者Switch函数来实现条件赋值。比如更新查询的SQL语句：

-- 用IIF（只有单个条件时更简洁）
UPDATE YourTable 
SET [New Impact] = IIF([Impact] = 0, "1", [New Impact])

-- 如果以后有多个条件，用Switch更灵活
UPDATE YourTable 
SET [New Impact] = Switch(
    [Impact] = 0, "1",
    [Impact] = 1, "2",
    [Impact] = 2, "3"
)

记得把YourTable替换成你的实际表名，同样注意字段类型和值的引号问题。

你原来代码的问题根源 #

• 如果是写VBA：直接写[Impact]会让VBA把它当成未定义的变量，而不是表的字段，必须通过记录集来访问字段；同时缺少遍历记录、更新记录的必要步骤。
• 如果是写查询SQL：SQL本身没有Select Case语法，必须用Access支持的条件函数来替代。

内容的提问来源于stack exchange，提问作者Roland