Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7727 / 9994 ←次へ | 前へ→

【5452】ページ計のあるレポートの作成について
質問  あおぎん  - 05/6/21(火) 15:42 -

引用なし
パスワード
   金融機関への振込み依頼書を作成したいのですが、

レポートの項目として、

・金融機関コード
・名義人
・振込金額

があり、

様式の条件として、
・1ページが15件ずつであること
・ページの小計(振込金額の計)があること
・総振込金額が1ページめに表示されること

が必要になります。

15件ずつの記載は、ヘルプ等を参考にできたのですが、
ページの小計と、レポート計の1ページ目での表示がうまくできません。

ページ小計は
ネットで検索して、

『ぺージフッターに空のテキストボックス(名前はtxt_PageCount)を配置します。
「詳細セクション」の「印刷時イベント」を利用して、
「詳細セクション」にある振込額テキストボックス(名前はtxt_Count)の値を
テキストボックスtxt_PageCountに次々と加算していく方法です。
それには、「ページフッター」の「フォーマット時イベント」を利用して
テキストボックスtxt_PageCountの値をその都度 0 にして、ページごとに集計を独立させます』

という方法で表示させるようにしました。

『Option Compare Database

 Private Sub ページヘッダーセクション_Format(Cancel As Integer,   FormatCount As Integer)

  'txt_PageCountは、「ページヘッダー」で合計を求めるテキストボックスです。
  Me.TXT_PAGECOUNT = 0
End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
  
   Me.TXT_PAGECOUNT = Me.TXT_PAGECOUNT + Me.TXT_COUNT
End Sub』

としたのですが、小計がうまく計算できていないようです。
1ページ目は正しいのですが、2ページ以降、そのページの15件のレコードだけでなく、別のレコードも足しているようです。

レポート計を1枚目に表示させる方法はいろいろ検索してもよくわからなくて、
今までは、手で書いてました・・。


様式の条件を満たすレポートの作成方法がありましたら、どうか教えてください。
よろしくお願いいたします。
509 hits

【5452】ページ計のあるレポートの作成について あおぎん 05/6/21(火) 15:42 質問
【5459】Re:ページ計のあるレポートの作成について 小僧 05/6/21(火) 17:13 発言
【5463】Re:ページ計のあるレポートの作成について あおぎん 05/6/21(火) 18:30 質問
【5471】Re:ページ計のあるレポートの作成について あおぎん 05/6/22(水) 9:33 質問
【5472】Re:ページ計のあるレポートの作成について 小僧 05/6/22(水) 10:39 回答
【5478】Re:ページ計のあるレポートの作成について あおぎん 05/6/22(水) 15:28 質問
【5479】Re:ページ計のあるレポートの作成について 小僧 05/6/22(水) 16:20 回答
【5481】Re:ページ計のあるレポートの作成について あおぎん 05/6/22(水) 17:32 お礼

7727 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078264
(SS)C-BOARD v3.8 is Free