hatena
hatena
2023/05/24 (水) 10:01:52
改ページするタイミング(400000000を超えた時点)で累計をリセットするということですね。
「集計実行」の設定では、そのようなことは不可能ですので、累計はVBAで加算していって表示させるという方法にする必要があります。
Option Compare Database
Option Explicit
Private Ruikei As Long
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
Ruikei = 0
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then Ruikei = Ruikei + Me!積載
Me!累計 = Ruikei
If Ruikei > 400000000 Then
Me!改ページ.Visible = True
Else
Me!改ページ.Visible = False
End If
End Sub
VBAで累計値を表示させる場合は、レポートのイベントの発生メカニズムを理解していないと、想定通りにならない場合がありますので注意が必要です。
説明すると長くなるので、下記のリンク先を参照して理解するようにしてください。
通報 ...