No.2ベストアンサー
- 回答日時:
#1です。
罫線を最後まで表示
http://support.microsoft.com/kb/404909/ja
の応用になりそうですね。
簡単な方法だと、
レポートフッターが詳細と同じ高さである、という限定条件はありますが、
こんな方法があります。
レポートフッターに合計欄を配置し、
詳細の最下に改ページコントロールを配置します。
(詳細の高さの数値と、改ページコントロールの上位置の数値を同じにしてください。)
ページヘッダー、詳細、レポートフッターのそれぞれに、
フォーマット時のイベントを書きます。
イベントプロシージャ全部で
--------------------------------------------------------------
Option Compare Database
Option Explicit 'これはなくてもよい
Dim lngRow As Long
Private Const lngPageRows As Long = 10 '1ページのレコード数
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
lngRow = 0
End Sub
Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
lngRow = lngRow + 1
If lngRow = lngPageRows Then
Me.ラベル5.Visible = True 'このへんはレポートフッターのコントロールを書いてください。
Me.テキスト4.Visible = True
Me.NextRecord = True
Else
Me.ラベル5.Visible = False
Me.テキスト4.Visible = False
Me.NextRecord = False
End If
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
lngRow = lngRow + 1
If lngRow = lngPageRows Then
Me.改ページ.Visible = True
Else
Me.改ページ.Visible = False
End If
End Sub
--------------------------------------------------------------
レポートフッターの高さが詳細と違う場合は、
全レコード数を数えて比較したり、もう少し違う書き方をしないといけないです。
この回答への補足
上記のやり方でイメージ通りの結果が得られました。
それで、最後に記載されたとおり、合計の欄をもう少し下にずらして
(フッターの高さと詳細が違くなってしまう?)
詳細欄と合計欄の位置が重ならないようにするにはどうしたらよいのでしょうか?
いろいろ試したら合計だけ別に計算させて表記したらなんとか思い通りの表記ができました。
でも、上記のやり方も大変勉強になりました。
ありがとうございました。
No.1
- 回答日時:
合計は必ず最終ページに表示させる、ということであれば、
レポートフッターに合計を配置してください。
レポートフッターは、
レポートをデザインビューで開いて、
レポート上で右クリックし、「レポート ヘッダー/フッター(H)」を選択すると追加できます。
また、
このときできた、「レポートフッター」の上で右クリックし、
「プロパティ(P)」を開いて、
「改ページ」(書式タブの中にあります)で「カレントセクションの前」を指定すると、
合計は最終ページに出ます。
この回答への補足
すみません。質問の仕方が悪かったですね。
最終ページにはデータも表記させたいのです。
普通は、レポートフッターに合計を配置すればデータの数が変動しても最終ページに表示されますが、その位置がデータのすぐ下に配置されるのでそれをデータが変動し(1行表示されても3行表示されても)合計はいつも最終ページの一番下に表示させたいのです。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP PHP MySql ページング 2 2022/09/20 06:38
- Access(アクセス) Accessのリンクテーブルのパスを相対パスにする方法について教えて頂きたいです 1 2023/02/08 13:29
- Visual Basic(VBA) VBAで列の再表示設定 1 2023/04/25 10:19
- PHP php my adminより取り出したデータ表示 2 2022/06/15 11:56
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Excel(エクセル) Excel 在庫管理について 3 2023/02/09 10:00
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) アウトラインの小計のやり方 1 2023/03/20 11:51
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- au(KDDI) 特定の画面を見るとスマホが固まります ご覧頂き有難うございます。 特定のページを見るとスマホが固まり 1 2023/08/21 19:29
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Access チェックボックスを使...
-
Accessでページヘッダーだけが...
-
Accessのレポート上のテキスト...
-
ACCESS2000 VBAで印刷時にサブ...
-
accessレポートにwordの文...
-
Accessのフォーマット時イベント
-
計算結果がレポートビューでは...
-
Accessでレポートに任意のテー...
-
Accessのサブレポートでデータ...
-
ACCESS レポートでグループご...
-
アクセスのレポートをPDF化する...
-
ACCESS でフォームフィルターを...
-
★お手上げ状態です。助けてくだ...
-
Accessでの複数クエリ(テーブ...
-
Access Yes/No型のデータを使...
-
アクセスのレポートで空白のテ...
-
アクセスのレポートを使いまわ...
-
ACCESSレポートに複数のクエリ...
-
Access レポートフッターを条...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
accessレポートにwordの文...
-
Accessのフォーマット時イベント
-
ACCESS レポートでグループご...
-
ACCESS2000 VBAで印刷時にサブ...
-
★お手上げ状態です。助けてくだ...
-
レポートのラベルなどの非表示...
-
Access チェックボックスを使...
-
Accessでページヘッダーだけが...
-
アクセスでレポート作成時にデ...
-
Accessでレポートの項目をVBAで...
-
レポートのコントロールソース...
-
ACCESS でフォームフィルターを...
-
Access上で作成したレポートのE...
-
テキストボックスにコントロー...
-
ACCESSでデータゼロ件の時レポ...
-
エクセルで表を作り、ピボット...
-
計算結果がレポートビューでは...
-
Access2007でページ毎にPDFを出...
おすすめ情報