| |
▼bbk さん：
>グループ別で２ページあるところが、１ページ目は詳細の件数を表示しきって
>終了(ページ表示は 1/1)。２ページはグループフッターから始まる(ページ表示は1/2)・・・となった時にそのグループが２ページあると認識しなくて困っている、、、と感じです。
そのプログ発行人のhatenaです。
ご指摘の不具合は認識してました。
グループ毎ページ数をグループフッターでリセットしてますが、それが原因です。
手元のサンプルでは、レポートモジュールを下記のように修正して対策してましたが、
プログの方は修正するのを失念してました。
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 グループフッター2_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
ページヘッダーで、グループフィールドの値が変化したかどうかをチェックしてリセットするよう変更しました。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
