AccessVBA＠レポートフッタへの項目追加

質問

• AccessVBAで取引先別の売上金額を出力するレポートを修正している中で、レポートフッターへの項目追加について苦戦しています。
• 取引先の中の一部のみの合計を出すため、sum_kというフィールドをレポートフッターに追加しましたが、値が正常に計算されず困っています。
• レポートフッターのPrintイベントやFormatイベントの中で変数の値を追加した項目sum_kに送ってみましたが、うまくいきません。対処方法を教えてください。

回答No.10

山田 太郎（@f_a_007）

【補足】マジックナンバー追放問題について。

Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
　　Select Case Me.取引先
　　　　Case "取引先A"
　　　　　　Me.取引先A合計 = Me.取引先別取引額合計
　　　　Case "取引先B"
　　　　　　Me.取引先B合計 = Me.取引先別取引額合計
　　　　Case "取引先C"
　　　　　　Me.取引先C合計 = Me.取引先別取引額合計
　　　　Case Else
　　End Select
End Sub

＞プログラムコード中に"取引先A"などを埋め込むと
＞プログラマはその後にコードの改変などの作業に追われる。
＞よって、いわゆるマジックナンバーを埋め込むのは避けるべき。

このことは承知の上で、先のコードを提示しています。

【マジックナンバー追放にはコストがかかる】

１、Report.OpenArgs の利用はユーザーに歓迎されない。

OpenArgsプロパティを利用して"取引先名"等を指示できるが、これはユーザーに＜指示や選択する＞という面倒を強いることになり。

２、[得意先マスター].[フッター合計表示]（Yes/No)列。

こういう仕掛けをすれば、ユーザーの負担は皆無。そして、同列の管理アプリケーションのレポートのフッター欄を最適化して保存すれば万全である。しかし、これには３、４日というプログラミング作業が必要。

３、マジックナンバーの人力修正が一番。

今回の案件は、２の作業をして達成すべきだろうか？そこまでシビアに考えなくて、チャッチャと毎月人力で修正しても良いのでは。

ちょっと、動的に対応の私見を補足しておきます。

お礼

コメント有難うございます。

こういうソースへのコード埋め込みは確かに悩ましい問題ですね。
本来ならば、データの中に含まれる別コードをWhere条件にするなり、キーにするなりして対応するのがスマートなやり方でしょうね。

しかし、仰る通り、掛けられる工数と修正頻度のバランスを考えて今回はソース埋め込みにしています。
鶴の一声には勝てませんので、早く解決するしかないですしね。