[access报表]如何重置页码和总页数为 Microsoft access 在报表中的每个组

默认状态下，在 Access 中，生成报表时将 Page 属性和 Pages 属性是根据设置当前在您生成报表时报表中的记录总数。页码和总页数是不自动重置为报表的组中每个新项。

您可以重置页码和总页数基于一组通过使用宏或通过使用报表的 节 属性中的代码。然后，您可以使用页面的页码和总页数，已重置为"页的页"格式显示的页码。

例如对于如果第一组记录继续对两个页中，您可以显示的页码为"1 的 2"和"2 的 2"。如果第二个组的记录仍为三个网页，您可以为"3"的 1"中显示的页码 2 3"和"3 之 3"。

回到顶端

准备报告和组页

若要进行分组页，两次通过格式设置用于，与 页 属性一起重置为每个组在总页数。第一个格式传递将第一个页码设置为"1"的值的新组中，然后将组中的总页面数写入到表。第二个格式传递检索每个组的总页数。若要在报表的页面页脚节中显示页码，然后使用这些值。准备报告和组页，请按照下列步骤操作。

注意以下步骤来演示如何准备报表以及如何分组报表中的页使用 Northwind.mdb 示例数据库中的"按国家/地区的雇员销售"报表。

警告：如果您按照这些步骤在此示例中，您修改示例数据库 Northwind.mdb。您可能希望备份 Northwind.mdb 文件并在该数据库的副本，请按照下列步骤。

1.   启动 Access。

2.   打开 Northwind.mdb 示例数据库。

3.   创建一个包含以下属性的表：

4.                               Table:

5.                               ---------------------------------

6.                               Table Name: Category Group Pages

7.                               Field Name: Country

8.                               Data Type: Text

9.                               Field Size: 15

10.                          Indexed: Yes (No Duplicates)

11.                        

12.                          Field Name: Page Number

13.                          Date Type: Number

14.                          Field Size: Long Integer

15.                        

16.                          PrimaryKey: Country

17.  在数据库窗口中单击 对象 下的 报表。

18.  在右窗格中右键单击 按国家/地区的雇员销售额，然后单击 设计视图。

19.  将国家/地区页脚节的 强制分页 属性设置 为 中。若要这样做，请按照下列步骤操作：

a.      在设计视图中用鼠标右键单击 国家/地区页脚，然后单击 属性。

b.      在该 节： GroupFooter1 对话框框中，单击 格式 选项卡。

c.      在 强制新页 框中，单击 后节，，然后再关闭该 节： GroupFooter1 对话框中。

1.   请确保新组开始时，国家页眉节的 OnFormat 事件的事件过程都将设置为"1"的页码。若要这样做，请按照下列步骤操作：

a.   在 视图 菜单上单击 代码 以打开 Visual Basic 编辑器。

b.      在 对象 框中单击 组页眉 0。

c.      在 过程 框中单击 格式。

d.      请确保在代码窗口中显示下面的代码：

e.    Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)

f.    'Set page number to 1 when a new group starts.

g.        Page = 1

End Sub

1.   定义一个 数据库 对象的变量、 一个 记录集 对象和检索组中的页总数的函数的变量。若要执行此操作 Visual Basic 编辑器中，追加下面的代码。

注意Visual Basic 编辑器可能已经包含一些代码。不要删除任何现有的代码。将下面的代码附加到任何现有的代码：

2.                            Dim DB As Database

3.                            Dim GrpPages As RecordSet

4.                            Function GetGrpPages ()

5.                               'Find the group name.

6.                               GrpPages.Seek "=", Me![Country]

7.                               If Not GrpPages.NoMatch Then

8.                                  GetGrpPages = GrpPages![Page Number]

9.                               End If

End Function

10.  创建报表的 OnOpen 事件的事件过程。若要执行此操作将追加下面的代码：

11.                       Private Sub Report_Open (Cancel As Integer)

12.                          Set DB = dbengine.workspaces(0).databases(0)

13.                          DoCmd.SetWarnings False

14.                          DoCmd.RunSQL "Delete * From [Category Group Pages];"

15.                          DoCmd.SetWarnings True

16.                          Set GrpPages = DB.OpenRecordset("Category Group Pages", DB_Open_Table)

17.                          GrpPages.Index = "PrimaryKey"

18.                       End Sub

19.  创建报表的页面页脚节的 OnFormat 事件的事件过程。若要执行此操作将追加下面的代码：

20.                       Private Sub PageFooter_Format (Cancel As Integer, FormatCount As Integer)

21.                          'Find the group.

22.                          GrpPages.Seek "=", Me![Country]

23.                        

24.                          If Not GrpPages.NoMatch Then

25.                             'The group is already there.

26.                             If GrpPages![Page Number] < Me.Page Then

27.                                GrpPages.Edit

28.                                GrpPages![Page Number] = Me.Page

29.                                GrpPages.Update

30.                             End If

31.                          Else

32.                             'This is the first page of the group. Therefore, add it.

33.                             GrpPages.AddNew

34.                             GrpPages![Country] = Me![Country]

35.                             GrpPages![Page Number] = Me.Page

36.                             GrpPages.Update

37.                          End If

38.                       End Sub

39.  关闭 Visual Basic 编辑器。

40.  在设计视图中添加具有以下属性在页面页脚节下的两个文本框控件：

41.                          Text box:

42.                          -----------------------------

43.                          Name: GroupXY

44.                          ControlSource: =GetGrpPages()

45.                          Visible: No

46.                        

47.                        

48.                          Text box:

49.                          ------------------------------

50.                          Name: ReferToPages

51.                          ControlSource: =Pages

52.                          Visible: No

笔记 的 ReferToPages 文本框中强制使用两次通过格式打印报表时报表。

53.  在设计视图中单击 PageNumber 在 对象 下拉列表位于格式工具栏。

54.  在 视图 菜单上单击 属性。

55.  在该 文本框： PageNumber 对话框框中，单击 数据 选项卡，在 控件来源 框中放置以下代码：

=[Country] & " -  Page " & [Page] & " of " & [GroupXY]

56.  在 视图 菜单上单击 布局预览 以预览的报表。

注意您必须输入正确的日期参数值，以预览的报表。

页面页脚显示当前页和为每个组在总页数"页的页"的格式。

回到顶端

有关如何重置页码设置为报表中的每个组的其他信息，请访问下面的 Microsoft 网站：

http://office.microsoft.com/assistance/preview.aspx?AssetID=HP051874011033 (http://office.microsoft.com/assistance/preview.aspx?AssetID=HP051874011033)

有关更多的信息请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

209215  (http://support.microsoft.com/kb/209215/ ) 如何重置报表中的分组级别上的页码

216311  (http://support.microsoft.com/kb/216311/ ) 如何在报表上创建页总计

回到顶端