如何引用MS Access表的某些列字段

时间:2015-11-20 07:14:28

标签: ms-access access-vba

我有一个包含3列的Microsoft Access 2010表。

第一列包含数字顺序主键ID 第二个包含站点名称。 第3个包含每个站点的是/否。

我想循环第二列,为第2列中的每个字段执行操作,其中第3列中的条目为“是”'。

我试图使用的代码对我来说不是

Set rs = db.OpenRecordset("table1")
Set rs2 = rs.Fields("Column2")
set rs3 = rs.fields("Column3")

For each fld in rs2
If rs3.fields = "Yes" then

"行动代码将遵循此处等等"

Next fld


End if

Loop

代码似乎并不喜欢"对于rs2中的每个fld"

我将不胜感激任何帮助

非常感谢

1 个答案:

答案 0 :(得分:3)

第一个记录集已包含所有字段。

Set rs = db.OpenRecordset("table1")
Do While Not rs.EOF
    ' Alternatively: rs("Column3")
    If rs!Column3 = "Yes" Then
       ' stuff
    End If
    ' Next record
    rs.MoveNext
Loop

但是:在Recordset循环中你想要做的事情很可能在使用UPDATE查询的SQL中更容易和更高效。