Access连续窗体滚动时，如何让页眉文本框随记录集自动更新？

方案一：通过VBA结合Scroll事件实现实时更新 #

• 第一步：在窗体模块中声明模块级变量
  打开窗体设计视图，按Alt+F11进入VBA编辑器，在窗体对应的模块中添加：

  Private CurrentSuperName As String
  

• 第二步：编写窗体Scroll事件代码
  回到窗体设计视图，打开属性表，找到Scroll事件并进入代码编辑界面，添加：

  Private Sub Form_Scroll()
      Dim rs As Recordset
      Set rs = Me.RecordsetClone
      ' 定位到当前可见区域的第一条记录
      rs.MoveFirst
      rs.Move Me.ScrollTop \ Me.Section(acDetail).Height
      
      If Not rs.EOF Then
          ' 对比当前可见主管与已存储的主管是否一致
          If rs!SuperName <> CurrentSuperName Then
              CurrentSuperName = rs!SuperName
              Me!txtSuperHeader.Value = CurrentSuperName ' 替换为你的页眉文本框名称
              Me.Section(acHeader).Requery ' 强制刷新页眉
          End If
      End If
      Set rs = Nothing
  End Sub
  

• 第三步：初始化窗体加载时的主管姓名
  在窗体Load事件中添加代码：

  Private Sub Form_Load()
      If Not Me.Recordset.EOF Then
          CurrentSuperName = Me.Recordset!SuperName
          Me!txtSuperHeader.Value = CurrentSuperName
      End If
  End Sub
  

方案二：使用原生分组窗体（无需代码） #

这是更简便的原生实现方式，适合不需要保留原窗体页眉结构的场景：

1. 打开窗体设计视图，点击设计选项卡中的「分组和排序」；
2. 在分组面板中点击「添加组」，选择SuperName字段，设置排序为升序；
3. 将主管姓名文本框从窗体页眉移动到新建的组页眉区域；
4. 调整布局后，滚动窗体时，组页眉会自动随主管分组切换更新显示内容。

注意事项 #

• 你的SQL查询已按SuperName排序，两种方案均可正常生效；
• 方案一中需将代码里的txtSuperHeader替换为你实际使用的页眉文本框名称；
• 分组窗体方案更符合Access原生设计逻辑，维护成本更低。

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