MS Access选中组合框选项后如何实现文本框自动上移

你之前检索不到对应方案，核心是没匹配对专业检索词，这个场景属于Access窗体的动态控件布局重排范畴，共有两种可直接落地的实现方案：

方案1：内置堆叠布局（低代码，优先推荐） #

这个是Access原生支持的自动布局能力，不需要写复杂代码，适配成本最低：

• 进入窗体设计视图，按住Ctrl选中所有需要联动调整位置的控件：包括会被显示/隐藏的中间文本框、需要自动上移的两个底部文本框，以及对应关联标签
• 右键选中的控件组，依次选择「布局」-「堆叠」，所有控件会自动归入垂直堆叠布局容器
• 保存设置后即可生效：当你通过组合框切换把上方任意文本框的Visible属性设为False时，布局容器会自动把下方所有控件上移，自动填补空白位置
• 可在顶部菜单栏「排列」选项卡中调整布局内的控件间距、单元格边距，和手动拖拽摆放的视觉效果完全一致

方案2：VBA动态调整控件坐标（自定义程度最高） #

如果不想使用内置布局、需要完全自定义位移逻辑，可以通过VBA在组合框更新时重新计算控件位置，步骤如下：

• 提前在设计视图给所有需要参与动态排列的控件设置统一标记：选中对应控件，在属性表的「其他」选项卡找到Tag属性，统一输入值DynamicCtrl
• 给组合框添加AfterUpdate事件（即选项切换完成后触发的事件），写入以下代码，同时在窗体加载事件中调用同一段逻辑，保证初始加载时位置正确：

' 自定义控件之间的垂直间距，单位为缇，可根据自己的界面设计调整数值
Const CTRL_GAP As Integer = 60

Private Sub cbo_SelectOption_AfterUpdate()
    ' 替换cbo_SelectOption为你实际使用的组合框控件名称
    Dim ctrl As Control
    Dim currentPos As Long
    ' 替换为第一个动态控件距离窗体顶部的初始Top坐标值，可在设计视图选中第一个控件查看Top属性抄数
    currentPos = 320
    
    ' 遍历所有控件，按从上到下的顺序重排
    For Each ctrl In Me.Controls
        If ctrl.Tag = "DynamicCtrl" Then
            If ctrl.Visible = True Then
                ctrl.Top = currentPos
                ' 计算下一个可见控件的顶部位置
                currentPos = currentPos + ctrl.Height + CTRL_GAP
            End If
        End If
    Next
End Sub

Private Sub Form_Load()
    ' 窗体打开时就执行一次位置校准
    Call cbo_SelectOption_AfterUpdate
End Sub

• 注意：如果遍历控件时出现顺序错乱，可将需要排列的控件按从上到下的顺序命名（如txt_Field1、txt_Field2…），改用按序号循环读取控件的方式遍历，就能保证排列顺序完全符合预期。

避坑提醒：两种方案不要混用。如果控件已经加入内置堆叠布局，不要再手动通过VBA修改控件的Top属性，否则会出现布局冲突导致位置错乱。

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