実現したいこと
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
試したこと・調べたこと
上記の詳細・結果
・見積書であるメインレポートに上記にあるコードを入力
メインレポートに行数を増やす処理を記入すれば問題と考えた。
→最初にあるサブレポートの項目行数に+1されて表示される。項目によっては、メインレポートに入力したConst MAX_ROW As Integer = 8 'で指定した数が次のレコードに表示される
・メインレポートにコードを入力しない
→サブレポートにあるフォーマット実行時に実行される処理は起動せずサブレポートの項目行数が表示される。
https://qiita.com/msht0511/items/b243c5ef3a065aa32970
・完全には一致していないが関連かと思いformatからReport_Openに変更し実行
→サブレポートの行に1行だけ追加されるだけ
補足
Microsoft Access 2021(.accdb)
メインレポートとサブレポートは見積ID,見積明細IDにてリンク。
リンクに該当するコードは表示される。
メインレポートのデータはパススルークエリにて取得したデータをレポート化している。
0 コメント