Accessでレポートの項目をVBAで変更したい

質問

Accessのレポートで年次集計を項目が可変になるため、VBAで書き換えるようにしたのですが、うまく出来ません。
お心当たりのかたいらっしゃいましたら教えて頂けないでしょうか。

フォームの概要（売上集計）
　　　　ＯＯ年　ＯＯ年　ＯＯ年
商品Ａ　1,000 2,000 3,000　
商品Ｂ 1,500 2,500 3,500
商品Ｃ 2,500 3,500 4,500
※年は可変です

次のようにするとフォームが開いていないと言ったエラーが出ます。
stDocName = "年別売上集計レポート"
Reports(stDocName).ラベル1.Caption = cstr(Year) + "年"
DoCmd.OpenReport stDocName, acPreview, "", [フィルタ]

又次のようにするとエラーは出ませんが、ラベルは書き換わりません。
stDocName = "年別売上集計レポート"
DoCmd.OpenReport stDocName, acHidden, "", [フィルタ]
Reports(stDocName).ラベル1.Caption = cstr(Year) + "年"
DoCmd.OpenReport stDocName, acPreview, "", [フィルタ]

回答No.2

gungnir7 · ベストアンサー

今しがた思い返してみたのですが、
意図しているところを探ってみますと下のコードでもまずいと思います。

というのもOpenReport自体がレポートのロード命令であり、
acPreviewとacHiddenとは別のレポートだと思われるからです。
（同じレポートを連続で開こうとするとどうなるか分かりません）

Reports(stDocName).ラベル1.Caption = cstr(Year) + "年"
この一行をレポートのopen、ないしそれに該当するイベントに記述すれば
上記のことは回避できますし、
わざわざhiddenで開いてラベルをセットする必要もありません。

意図をはずしていたらご容赦を。

お礼

レポートのオープンイベントでセットしたら解決しました。
結果的にはレポートのオープンイベントでに次のようなコードを入れました。
Private Sub Report_Open(Cancel As Integer)
Me.ラベル1.Caption = Forms!呼び出し元フォーム.年ラベル.Caption + "年"
end sub

こんな方法があるとは教えて頂くまで気が付きませんでした。
助かりました。ありがとうございます。

回答No.1

gungnir7

>フォームが開いていないと言ったエラーが出ます

Form（レポート？）をロードしないとcaptionは変更というか
設定できないと思います。

コードとしては下のコードが正しいはずですが、
achiddenとは何でしょうか？
この引数は取れないようですが・・・
http://www.geocities.jp/cbc_vbnet/kisuhen/docmd.html

Accessの環境がないので参照意見扱いでお願いします。

補足

ご回答頂きありがとうございます。
仰るとおりopenしていないのメンバも変更出来ないようです。
acHiddenとは非表示でオープンする指定です。
URLも大変良い参考になりました。
下のコードをベースに改良してみます。