访问 VBA Findfirst 时出现 Dlookup 语法错误
Access VBA Findfirst with Dlookup Syntax Error
我在这段代码
的表达式 中收到错误 语法错误（缺少运算符）
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
您需要考虑间距，在检查多个条件时使用 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)) & "'"
我在这段代码
的表达式 中收到错误 语法错误（缺少运算符）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
您需要考虑间距，在检查多个条件时使用 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)) & "'"