Microsoft Access 掲示板

Microsoft Access 掲示板

Accessレポート ページ切替につきまして / 5
5
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で累計値を表示させる場合は、レポートのイベントの発生メカニズムを理解していないと、想定通りにならない場合がありますので注意が必要です。
説明すると長くなるので、下記のリンク先を参照して理解するようにしてください。

レポートのイベントの発生メカニズムの研究 - hatena chips

レポートのイベントの発生メカニズムの研究 その２ - hatena chips

通報 ...