在 Access 2013 连续窗体中编辑所有控件

Question

我的主窗体上有一个按钮，将连续子窗体中的所有控件标记为 "Yes"，但它只会更改连续窗体中的第一条记录。第二、第三等记录不会改变。我找到了 answer using DAO recordsets，但我使用的组合框未绑定。

这是我的代码。它修改子表单中第一条记录中的所有组合框。

For Each ctl In Me![SubformName].Controls
    If ctl.ControlType = acComboBox Then
        If ctl.Name <> "Yes" Then
            ctl.Value = "Yes"
        End If
    End If
Next ctl

我要更改代码中的哪些内容才能修改第一条记录之后的记录？有没有办法直接引用连续表格记录？

编辑添加：

我仍然无法让它适用于未绑定的组合框，但以下内容确实适用于绑定的组合框。

Set rst = Me.SubformName.Form.RecordsetClone
rst.MoveFirst
Do While rst.EOF = False
    rst.Edit
    rst!FieldName = "Yes"
    rst.Update
rst.MoveNext
Loop

Answer 1

打开子窗体控件的RecordsetClone。

循环执行此操作，并为每条记录将绑定到组合框的字段的值设置为 True。

在 Access 2013 连续窗体中编辑所有控件

Edit all controls in an Access 2013 continuous form

ms-access

vba

combobox

ms-access-2013