连续窗体选中多条记录后点击命令按钮批量执行相同操作的实现方法

完全可以实现，以下是两种常用的实现方案，可根据使用场景选择：

方案1：绑定复选框方案（支持任意多选，推荐） #

这个方案适用需要选择不连续的多条记录的场景，是最常用的实现方式：

• 第一步：给连续窗体绑定的数据源表新增一个IsSelected的是/否类型字段，默认值设置为False
• 第二步：在连续窗体的每一行的首列位置添加一个复选框控件，将控件的「控件来源」属性绑定到刚才新增的IsSelected字段
• 第三步：给命令按钮编写点击事件的VBA逻辑，遍历所有选中的记录执行自定义操作，参考代码如下：

Private Sub cmdProcessSelected_Click()
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    
    ' 无记录时直接退出
    If rs.RecordCount = 0 Then
        MsgBox "当前窗体没有可处理的记录"
        Set rs = Nothing
        Exit Sub
    End If
    
    rs.MoveFirst
    Do While Not rs.EOF
        ' 仅处理选中的记录
        If rs!IsSelected = True Then
            ' ---------- 这里替换为你自己的业务逻辑 ----------
            Debug.Print "处理记录ID：" & rs!ID, "记录内容：" & rs!你的字段名
            ' 处理完成后如果需要取消选中，可取消下面注释
            ' rs.Edit
            ' rs!IsSelected = False
            ' rs.Update
            ' ---------------------------------------------
        End If
        rs.MoveNext
    Loop
    
    Set rs = Nothing
    ' 处理完成后刷新窗体（可选）
    Me.Requery
End Sub

如果需要添加全选、全不选的快捷功能，额外加两个按钮写对应逻辑即可。

方案2：无额外字段的连续区域选中方案 #

如果你的使用场景只需要选择连续的一段记录，不需要新增表字段，直接通过窗体自带的选中属性即可实现：

• 直接用窗体的SelTop（选中区域第一行的行号）和SelHeight（选中的记录总条数）属性遍历连续选中的行，参考代码如下：

Private Sub cmdProcessSelected_Click()
    Dim i As Long
    Dim originPos As Variant
    ' 保存处理前的光标位置，处理完恢复
    originPos = Me.Bookmark
    
    For i = Me.SelTop To Me.SelTop + Me.SelHeight - 1
        Me.SelTop = i
        ' ---------- 这里替换为你自己的业务逻辑 ----------
        Debug.Print "处理记录ID：" & Me!ID, "记录内容：" & Me!你的字段名
        ' ---------------------------------------------
    Next i
    
    ' 恢复原来的光标位置
    Me.Bookmark = originPos
End Sub

两种方案在单表记录数不超过千条的场景下都不会有性能问题，方案1灵活度更高，是绝大多数场景的首选。

内容的提问来源于stack exchange，提问作者user16653457