“未找到方法或数据成员”访问错误

Question

我正在尝试使用此代码比较两个表数据：

Set rstA = dbs.OpenRecordset("SerialAccount_a")
Set rstB = dbs.OpenRecordset("SerialAccount_b")

While Not rstB.EOF

  serialNumber = rstB.serial
  rstB.Filter = "serial = '" & serial & "'"
  Set rstFiltered = rstB

  Do While Not rstFiltered.EOF

    If rstA.Fields("serial") = rstB.Fields("serial") Then

      If rstA.Fields("accountnumber") <> rstB.Fields("accountnumber") Then

        accountMessage = "... do not match!"
        Debug.Print accountMessage

      ElseIf rstA.Fields("model_number") <> rstB.Fields("model_number") Then

        modelMessage = "... do not match!"
        Debug.Print modelMessage

      End If

    End If
  Wend

Wend

当我尝试运行它时，编译器在行上给我错误“找不到方法或数据成员”：

serialNumber = rstB.serial

我不明白为什么，serial 是这两个表中的一列。有人能告诉我为什么会弹出这个错误吗？

Answer 1

您想要rstB!serial 或rstB.Fields("serial")。前者使用“bang”运算符 (!) 作为后者的语法糖。

当您编写rstB.serial 时，您试图引用记录集的serial 属性。但是记录集对象没有serial 属性，因此您收到“找不到方法或数据成员”错误。