如何拆分MS Access长表单为多页？需前后按钮同表单内导航

嗨，我来帮你搞定这个表单分页的问题～你遇到的PageBreak控件移不动的情况，确实是Access表单尺寸上限导致的，不过我们有几个替代方案，既不用纠结尺寸限制，还能实现完美的分页导航：

方案一：用选项卡控件实现分页（最推荐） #

这个方法完全避开表单尺寸限制，操作也简单，还能轻松加按钮导航：

• 打开表单的设计视图，从左侧控件工具箱里找到「选项卡控件」，拖到表单上
• 右键点击选项卡的标签（比如“页1”“页2”），选择「插入页」，添加你需要的页面数量
• 把原来长表单上的控件，按内容分类拖到不同的选项卡页面里
• 如果不想用点击选项卡切换，想加“上一页”“下一页”按钮：
  1. 拖两个按钮到表单上，分别命名为cmdPrevPage和cmdNextPage，标题改成“上一页”“下一页”
  2. 右键按钮选择「事件生成器」，输入以下VBA代码（记得把TabCtl0换成你实际的选项卡控件名称）：

     ' 上一页按钮代码
     Private Sub cmdPrevPage_Click()
         If Me.TabCtl0.Value > 0 Then
             Me.TabCtl0.Value = Me.TabCtl0.Value - 1
         End If
     End Sub
     
     ' 下一页按钮代码
     Private Sub cmdNextPage_Click()
         If Me.TabCtl0.Value < Me.TabCtl0.Pages.Count - 1 Then
             Me.TabCtl0.Value = Me.TabCtl0.Value + 1
         End If
     End Sub
     

方案二：调整表单属性释放空间（适合坚持用PageBreak的情况） #

如果一定要用PageBreak控件，可以先调整表单属性腾出空间：

• 打开设计视图，按F4调出属性表，选中表单本身
• 把「滚动条」属性改成「两者均无」，暂时去掉滚动条，能释放不少表单空间
• 现在尝试拖动PageBreak控件到合适位置，完成后可以再把滚动条属性改回需要的设置
• 另外，把「自动调整」属性设为「是」，让Access自动适配控件尺寸，也能帮你节省空间

方案三：子表单切换实现分页 #

把不同页面的内容拆成独立子表单，用按钮控制显示：

• 新建几个子表单，分别放置原表单中不同部分的控件
• 在主表单里添加这些子表单，初始只让第一个子表单可见，其他设为隐藏
• 给导航按钮写代码切换子表单的可见性，比如：

  Private Sub cmdNextPage_Click()
      ' 隐藏当前子表单，显示下一个
      Me.SubForm_Page1.Visible = False
      Me.SubForm_Page2.Visible = True
  End Sub
  
  Private Sub cmdPrevPage_Click()
      Me.SubForm_Page2.Visible = False
      Me.SubForm_Page1.Visible = True
  End Sub
  

  如果页面多，可以用变量记录当前页码，写更灵活的判断逻辑。

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