使用 Dlookup 语法错误访问 VBA Findfirst

【问题标题】：Access VBA Findfirst with Dlookup Syntax Error使用 Dlookup 语法错误访问 VBA Findfirst
【发布时间】：2018-03-21 18:33:07
【问题描述】：

这段代码出现一个错误表达式中的语法错误（缺少运算符）

For i = 0 To Me.listMachineSubSystem.ListCount - 1
    rs.FindFirst "[Machine ID]=" & ID & "[MachineSystem]=" & DLookup("[MachineSystem]", "tblMachineSystem", "[Machine System ID]=" & Me.listMachineSubSystem.Column(2, i))

   rs1.AddNew
   rs1![MachineSubsystem] = Me.listMachineSubSystem.Column(1, i)
   rs1![Machine Sytem ID] = rs![Machine System ID]
   rs1.Update
 Next i

【问题讨论】：

标签： ms-access vba ms-access-2010

【解决方案1】：

您需要考虑空格，在检查多个条件时使用AND 关键字，并在需要时使用分隔符（字符串）。

如果MachineSystem 是一个数字：

rs.FindFirst "[Machine ID]= " & ID & " AND [MachineSystem]=" & DLookup("[MachineSystem]", "tblMachineSystem", "[Machine System ID]=" & Me.listMachineSubSystem.Column(2, i))

如果MachineSystem 是一个字符串：

rs.FindFirst "[Machine ID]= " & ID & " AND [MachineSystem]= '" & DLookup("[MachineSystem]", "tblMachineSystem", "[Machine System ID]=" & Me.listMachineSubSystem.Column(2, i)) & "'"

【讨论】：

机器系统是一个字符串，当我输入你的代码时，我得到一个错误提示：语句结束
我的错误，代码就像一个魅力。非常感谢