Microsoft Access 掲示板

Microsoft Access 掲示板

ﾚﾎﾟｰﾄｸﾞﾙｰﾌﾟ値の総合計をﾚﾎﾟｰﾄﾍｯﾀﾞｰに表示させたい / 10

10
hiroton 2023/06/06 (火) 12:42:55 修正 74852@f966d

よくわからんACCESSの仕様に付き合いながら速度気にするなら最初からVBAで組んじゃえばいいんじゃないかな。クエリ弄る必要ないし

Option Compare Database
Option Explicit

Dim 月合計 As Long

Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
    If Me.FormatCount = 1 Then 月合計 = 月合計 + Me!日合計 * 1.1
End Sub

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
    Me!請求額総計 = 月合計
End Sub

※このコードを動かすにはレポートの改造も必要

サブレポートにしてもDSumにしても抽出条件どうするんだ？問題が別に発生するからそれはそれで簡単とは言えないけれど

リレーションシップやクエリの組み方云々は質問の本題から遠いのでhiroton的にはノータッチです

通報 ...