如何在Access表单中隐藏文本框并让右侧剩余控件左移补位？

• 动态调整控件位置（代码实现）
  你已经能用Me.Text48.Visible = False隐藏文本框，但要让右侧控件左移填补空位，需要通过代码修改这些控件的Left属性。示例代码如下：

  ' 隐藏目标文本框
  Me.Text48.Visible = False
  ' 获取该文本框的宽度，作为后续控件左移的距离
  Dim moveWidth As Integer
  moveWidth = Me.Text48.Width
  
  ' 遍历表单控件，调整右侧文本框的位置
  Dim ctl As Control
  For Each ctl In Me.Controls
      ' 仅处理文本框且位置在目标控件右侧的元素
      If ctl.ControlType = acTextBox And ctl.Left > Me.Text48.Left Then
          ctl.Left = ctl.Left - moveWidth
      End If
  Next ctl
  

  若要恢复显示，需先将右侧控件的Left属性加回对应宽度，再设置Me.Text48.Visible = True。

• 利用布局控件自动调整（Access 2010及以上版本）
  新版本Access支持布局控件，将文本框放入布局后，隐藏其中一个控件时，布局会自动让右侧控件左移补位，无需手动写位置调整代码：

  1. 选中需要排列的所有文本框
  2. 点击菜单栏「排列」选项卡，选择「表格布局」或「堆叠布局」
  3. 之后隐藏文本框时，布局会自动完成控件位置的调整

• 注意事项

  • 检查控件的Anchor属性设置，避免调整位置后出现布局错乱
  • 如果文本框附带标签，需同步调整标签位置，或把标签与文本框绑定为控件组

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