Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Access 2016)
複数のサブレポート埋込み時のレポートヘッダー表示について
投稿日時: 25/04/27 00:10:20
投稿者: TK0428

Accessで関連性のない3つのレポートを一つのレポートとして印刷プレビュー表示するため、サブレポートを埋込み、一つのレポート(統合レポート)を作成しました。
サプレポート間には改ページを挿入してあります。
作成した統合レポートを印刷プレビュー表示すると、各レポートの2ページ以降のヘッダーが表示されません。
3つの元となるレポートには、必要に応じてレポートヘッダー、ページヘッダー、グループヘッダーの設定をしています。
 
【現状】
〈1ページ目〉
━━━━━━━━━━━━━━━
項目A 項目B 項目C 項目D
  111 222 333 444
  555 666 777 888
 
〈2ページ以降〉ヘッダーの項目名が非表示
━━━━━━━━━━━━━━━
   123 234 345 456
    567 678 789 890
 
【改善後】
〈1ページ目〉
━━━━━━━━━━━━━━━
項目A 項目B 項目C 項目D
  111 222 333 444
  555 666 777 888
 
〈2ページ以降〉ヘッダーの項目名を表示したい
━━━━━━━━━━━━━━━
項目A 項目B 項目C 項目D
   123 234 345 456
    567 678 789 890
 
設定またはVBAコードをご教授ください。

回答
投稿日時: 25/04/27 07:20:19
投稿者: hatena
投稿者のウェブサイトに移動

項目名はページヘッダーセクションに配置しているのですよね。
 
サブレポートではページヘッダーは表示されない仕様です。
 
代替案として下記のようにしてください。
 
「並べ替えとグループ化」で「グループを追加」して「フィールドの選択」で「式」に固定値を設定します。
例えば
=1
というように。
 
このグループのグループヘッダーにページヘッダーに配置されているコントロール(項目名)を移動させます。
 
このグループヘッダーの「書式」-「セクション繰り返し」プロパティを「はい」に設定します。
 
以上で2ページ以降も項目名が表示されます。

投稿日時: 25/04/27 23:39:02
投稿者: TK0428

hatena様
 
早速のご回答ありがとうございます。
 
教えていただいた通り、サブレポートに設定し印刷プレビューに切り替えると
「イベントプロパティに指定した式 フォーマット時 でエラーが発生しました:Return に対応する Go Subがありません」
とエラー表示されます。
 
サブレポートの設定内容は以下の通りです。
 
〈グループ化と並べ替えの順番とセクション〉
1.レポートヘッダー
2.=1 ヘッダー
   ※この部分に項目名を移動
3.発注番号A ヘッダー
4.発注番号B ヘッダー
5.詳細
ページヘッダーは表示していません。
 
イベントプロパティの指定はメインレポートは無し、サプレポートはコントロール内に文字が収まるよう、フォントサイズを変更するコードを記述しています。
 
設定内容に誤りがあればご教授ください。
再度、ご回答いただけますと幸いです。

投稿日時: 25/04/27 23:59:13
投稿者: TK0428

hatena様
 
先程、再度質問しさせていただきましたが、一度データベースを閉じ改めて設定したところ
2ページ以降も項目名が表示されました。
何日も悩んでいたので、本当に助かりました。
そしてとても勉強になりました。
ありがとうこざいました!

投稿日時: 25/04/30 20:06:57
投稿者: TK0428

可解決しました