あした

Option Compare Database
Option Explicit
Dim d As Object    ' Dictionary オブジェクト用変数
Dim brk As Variant
 
Private Sub Report_Open(Cancel As Integer)
    Set d = CreateObject("Scripting.Dictionary")
End Sub

'「納入者」のヘッダー
Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Pages = 0 Then
        d(Me.納入者.Value) = Me.Page
    End If
End Sub

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
    If Me.納入者.Value <> brk Then
       Me.Page = 1
       brk = Me.納入者.Value
    End If
    If Me.Pages > 0 Then
        Me.txtGrpPages = Me.Page & "/" & d(Me.納入者.Value) & "ページ"
    End If
End Sub