Access VBA中FindFirst结合DLookup出现“缺少运算符”语法错误求助

嘿，这个报错的原因很典型，咱们一步步拆解问题：

核心错误点 #

• 缺少逻辑运算符：你的FindFirst语句里，[Machine ID]和[MachineSystem]两个查询条件之间没有加逻辑连接符（比如AND），Access无法识别两个条件的关联关系，这是直接触发“缺少运算符”语法错误的元凶。
• 文本值未加引号：如果[MachineSystem]是文本类型字段，DLookup返回的字符串值必须用单引号包裹，否则Access会把它当成字段名而非查询值，也会引发语法混乱。

修正后的代码 #

For i = 0 To Me.listMachineSubSystem.ListCount - 1
    ' 先获取MachineSystem的值，方便后续处理
    Dim machineSysValue As Variant
    machineSysValue = DLookup("[MachineSystem]", "tblMachineSystem", "[Machine System ID]=" & Me.listMachineSubSystem.Column(2, i))
    
    ' 修正FindFirst语法：添加AND连接条件，文本值用单引号包裹
    rs.FindFirst "[Machine ID]=" & ID & " AND [MachineSystem]='" & Replace(machineSysValue, "'", "''") & "'"
    
    ' 增加判断：确保找到匹配记录再执行后续操作，避免空引用错误
    If Not rs.NoMatch Then
        rs1.AddNew
        rs1![MachineSubsystem] = Me.listMachineSubSystem.Column(1, i)
        rs1![Machine Sytem ID] = rs![Machine System ID] ' 注意这里的"Sytem"可能是拼写错误，建议核对数据表字段名
        rs1.Update
    End If
Next i

额外优化说明 #

1. 我加了Replace(machineSysValue, "'", "''")，是为了处理文本值里包含单引号的情况（比如O'Neil），避免再次触发语法错误。
2. 增加If Not rs.NoMatch Then的判断，防止当FindFirst没找到匹配记录时，后续引用rs![Machine System ID]导致空指针错误。
3. 留意你代码里的[Machine Sytem ID]，看起来像是拼写错误（应该是[Machine System ID]），建议核对数据表的字段名，避免后续出现字段不存在的问题。

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