質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

2回答

183閲覧

access サブレポートにてformatイベントが発生しない

syuu07

総合スコア11

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2024/03/15 08:27

編集2024/03/15 08:29

実現したいこと

accessにてレポートを2つ作り、片方をサブレポートとして見積書を作成しました。
しかし、サブレポートにあるフォーマット時にて実行される処理をVBAにて入力したのですが、起動しない状況です。どのように変更すれば処理が起動されるでしょうか?
初心者で申し訳ございませんが、ご教授の方よろしくお願いします。

発生している問題・分からないこと

サブレポートに記入したのは下記のコードです。レポートの行を強制的に8行にする処理を実行するようにしています。
サブレポートとしてではなく、単純にレポートを開いた時には起動してます。ですが、サブレポートとして実行する時には起動しません。

該当のソースコード

Private iCnt As Integer '描画行数カウントアップ用変数 Const MAX_ROW As Integer = 8 '最大行数を設定 Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer) iCnt = 0 '行数カウント初期化 End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) iCnt = iCnt + 1 '行数カウントアップ '詳細セクションが最大行数内の場合、改ページコントロールを無効にする If iCnt <= MAX_ROW Then 改ページ1.Visible = False '詳細セクションが最大行数を上回った場合、改ページコントロールを有効にして改ページ Else 改ページ1.Visible = True End If End Sub Private Sub ダミー行表示用フッター_Format(Cancel As Integer, FormatCount As Integer) iCnt = iCnt + 1 '行数カウントアップ '最大行数になるまでダミー行を続けて表示 If iCnt <= MAX_ROW Then Me.NextRecord = False 'レコードを次に進めない '最大行数を超えた場合レコードを次に進める Else Me.MoveLayout = False '描画位置を次に進めない Me.PrintSection = False 'セクションを印刷しない End If End Sub

試したこと・調べたこと

  • teratailやGoogle等で検索した
  • ソースコードを自分なりに変更した
  • 知人に聞いた
  • その他
上記の詳細・結果

・見積書であるメインレポートに上記にあるコードを入力
メインレポートに行数を増やす処理を記入すれば問題と考えた。
→最初にあるサブレポートの項目行数に+1されて表示される。項目によっては、メインレポートに入力したConst MAX_ROW As Integer = 8 'で指定した数が次のレコードに表示される

・メインレポートにコードを入力しない
→サブレポートにあるフォーマット実行時に実行される処理は起動せずサブレポートの項目行数が表示される。

https://qiita.com/msht0511/items/b243c5ef3a065aa32970

・完全には一致していないが関連かと思いformatからReport_Openに変更し実行
→サブレポートの行に1行だけ追加されるだけ

補足

Microsoft Access 2021(.accdb)

メインレポートとサブレポートは見積ID,見積明細IDにてリンク。
リンクに該当するコードは表示される。

メインレポートのデータはパススルークエリにて取得したデータをレポート化している。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

access サブレポートにてformatイベントが発生しない

単純にレポートを開いた時には起動してます。

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

サブレポートのページヘッダーセクションの Format イベントが発生しない、という意味でおっしゃっているのであれば、メインレポートの詳細セクション上に配置されたサブレポートコントロールの[ページヘッダーとページフッターの表示]プロパティが「いいえ」に設定されているからでしょう。

投稿2024/03/18 01:16

sk.exe

総合スコア744

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

syuu07

2024/03/18 01:37

ご回答ありがとうございます。 今回は先に回答をくださった方のやり方で解決させることができたため、教えてくださったことは今後の勉強に活かしていきます。 ありがとうございました。
guest

0

ベストアンサー

原因

ページの管理はメインレポート側で行ってますので、サブレポートではページ関係のイベントは発生しません。
ページ関係のイベントとはページヘッダーセクションのイベント、ページフッターセクションのイベント、レポートのページフォーマット時です。
また、ページ関係のプロパティと改ページコントロールもサブレポートでは効果がありません。

そのような仕様であるとこはページヘッダー、ページフッターが表示されないことからも推測できます。

対策

レポートにはグルーブ化という強力な機能があります。
これを使えば、通常の伝票ヘッダーと明細のレイアウトなら、サブレポートを使わなくても一つのレポートで実現できます。

方法としては下記のようになります。

  • メインとサブを結合したクエリをレコードソースにする。
  • 「見積ID」でグループ化する。
  • グループヘッダーかページヘッダーに、ヘッダー項目(メインテーブルのフィールド)を配置する。
  • 詳細セクションに明細項目(サブテーブルのフィールド)を配置する。

行数の固定に関しては、質問の方法でもいいし、他にも下記にいろいろな方法を紹介してます。

レコードがない場合も用紙の最後まで罫線を出力する - hatena chips

レコードがない場合も用紙の最後まで罫線を出力する関数 - hatena chips

レコードがない場合も用紙の最後まで罫線を出力する NextRecord版 - hatena chips

かなり特殊なレイアウトでサブレポートを使用しないと実現できないというようなときには、明細のテーブルにページ管理用のフィールドを追加して、それを利用することになります。
その場合は、どのようなレイアウトになるのか、希望の出力例の画像を質問に追記してください。

投稿2024/03/15 15:31

hatena19

総合スコア33717

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

syuu07

2024/03/18 00:22 編集

丁寧なご回答ありがとうございます。 無事に列を作ることができました。 ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問