Access (VBA)

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

 
(指定なし : 指定なし)
レコードセレクタで選択したレコードのレポートを作成したい
投稿日時: 21/05/26 17:18:02
投稿者: だいふくもち

いつもこちらのコミュニティには度々お世話になっております。Accessを勉強中の者です。
現在作成しているファイルがあるのですが行き詰まってしまい、
ご経験者様のお力をお借りしたくご相談させていただきました。
 
検索フォームのレコードセレクタでレコードを1件選択し、
コマンドボタンを押したらレコードの情報が記載されたレポートを表示するようにしたいです。
 
【テーブル】
T_契約マスタ
T_月額マスタ
T_顧客マスタ
T_見積書作成マスタ
(フィールド「契約番号」でリレーションされています)
 
【クエリ】
Q_印刷クエリ(ソース:T_契約マスタ,T_月額マスタ,T_顧客マスタ,T_見積書作成マスタ)
 
【フォーム】
F_印刷フォーム(ソース:Q_印刷クエリ)(帳票フォーム)
 
【レポート】
R_印刷レポート(ソース:T_契約マスタ)
*メインレポート
コントロール:T_契約マスタのフィールド
*サブレポート1
コントロール:T_顧客マスタのフィールド
*サブレポート2
コントロール:T_月額マスタのフィールド
 
レポートに値を渡せばいいのかな…と思い、フォームのコマンドボタンに
下記を埋め込んでいるのですが、レポート側でどのような設定をすればいいのかが分かりません。
 

Dim 引数 As String
引数 = Me!契約番号
DoCmd.OpenReport "R_印刷レポート", acViewReport, , , , 引数

どなたか良い方法をご存じの方がいらっしゃいましたら、教えていただけますと非常に助かります。
調べてみてもよく分からなかったのですが、初歩的な問題でしたら大変申し訳ありません…
お手数をお掛けしますが、よろしくお願いいたします。

回答
投稿日時: 21/05/26 18:11:04
投稿者: sk

引用:
【テーブル】
T_契約マスタ
T_月額マスタ
T_顧客マスタ
T_見積書作成マスタ
(フィールド「契約番号」でリレーションされています)

とりあえず、[契約番号]のデータ型がテキスト型であると仮定します。
 
引用:
R_印刷レポート(ソース:T_契約マスタ)
*メインレポート

引用:
検索フォームのレコードセレクタでレコードを1件選択し、
コマンドボタンを押したらレコードの情報が記載されたレポートを表示

引用:
引数 = Me!契約番号
DoCmd.OpenReport "R_印刷レポート", acViewReport, , , , 引数

引数 = "[契約番号]='" & Me!契約番号 & "'"
DoCmd.OpenReport "R_印刷レポート", acViewReport, , 引数

投稿日時: 21/05/28 14:42:35
投稿者: だいふくもち

>sk様
お礼が遅くなってしまい申し訳ありません。
なるほど、フィルターを掛ければよかったのですね…
前回助けていただいたにも関わらず、今回もご教授いただきありがとうございました…!
非常に助かりました!