vba - 在 Microsoft Access 报告中的每个组之后重新编号页码

Question

我有一个 MS 报告，它在我的分组上有页眉和页脚。它有 70 页，有 14 个不同大小的组。前三组 - 第 1 组有三 (3) 页，第 2 组有五 (5) 页，第三组有九 (9) 页。我希望这些页面像这样编号（添加一个空格以便更容易查看组）1,2,3,1,2,3,4,5,1,2,3,4,5,6,7,8, 9 - 使每组的第一页从编号 1 重新开始。

当我将以下代码添加到组分组的页脚时：

Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
   'this fires 1 page early
   Me.Page = 1
End Sub

它提前触发一页并给出以下 1,2,1,2,3,4,1,2,3,4,5,6,7,8,9,10,1。

我对任何想法和/或解决方案持开放态度。

Answer 1

这是一个相当普遍的问题。代码太多，无法发布。查看此链接http://access.mvps.org/access/reports/rpt0013.htm 它使用数组来重置编号。