Accessフィールドのコントロールソース変更

AccessのVBAを久々に作らざるを得なくなったのですが、
方法が判らずに困っています。

Accessで月毎に列を持っているクエリー（テーブル）から、
各月の数字を印刷するレポートを作成するために、
レポートで参照する列名を固定にして、クエリーの計算式（参照先）をVBAで変更しよう
と考えてます。
例） 月別集計クエリーQ1（テーブルAとBをジョインして作成している）
列名　参照先
--------------
M1 A.M1
M2 A.M2
M3 A.M3
（略）
M12 A.M12
M (可変）11月の時A.M11
N (可変) 11月の時B.M11

これに対して、
コントロールソースQ1を使用しているレポートを開く時のイベントで
M及びNのコントロールソースを変更させようと思います。
"M11"の部分は実際には変数で値をセットします。

Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim fld As DAO.Field
Dim tb As DAO.QueryDef

Set db = CurrentDb()
Set qd = db.QueryDefs("A")
Set fld = qd.Fields("M11")
Me("M").ControlSource = fld.Name

というような方法で書くと、
「指定した式で参照されている'M'フィールドが見つかりません。」
と出ます。
Me.Controls("SS4JNSR").ControlSource = fld.Name
でも同じです。

レポートのコントロールソースがジョインしていないクエリーだと、
Set fld = tb.Fields("M11")
Me("M").ControlSource = fld.Name
だけで動作するのですが、結合列の場合の参照の仕方が判りません。

教えて頂けないでしょうか？

No.2 ベストアンサー 回答者： bin-chan 回答日時： 2012/12/08 23:19

フォームが参照するクエリのフィールド名を固定しておくんですよ。

Set fld = qd.Fields("当月")のようにして。
それで月ごとに"フォームが参照するクエリ"を修正するんですよ。


１１月だったら以下のようにしておいて
select A.M11 as 当月1, B.M11 as 当月2 from A inner join B on ・・・　

１２月になったら以下のようにクエリを修正する
select A.M12 as 当月1, B.M12 as 当月2 from A inner join B on ・・・　

こうすればフォームが参照するのは常に"当月1"と"当月2"です。

この回答へのお礼

丁寧にサンプルまで付けて頂きまして有難うございました。
御蔭さまでなんとか理解できました。

お礼日時：2012/12/28 16:43

No.1 回答者： bin-chan 回答日時： 2012/12/06 20:22

もう一段、クエリを介在させてコントロールソースは固定。

つまりクエリ参照するクエリを修正していくとか。

この回答へのお礼

コメント有難うございました。

もう１段クエリーを付けるということですね。
やってみましたが、同じエラーが出て参照できませんでした。

切羽詰まったので、力技でVBAでSQL文を生成してなんとか解決できました。

お礼日時：2012/12/07 19:33