Access2016 レポートのテキストボックス For文初期化

Question

Access2016のレポート上に、同じ名称で通番を振った4個テキストボックス（tb1、tb2、tb3、tb4）を配置しました。
このテキストボックスをFor文で初期化する方法が知りたいです。

例えば、フォーム上のテキストボックスでしたら
For cnt = 1 To 4
    Me("tb" & cnt) = ""
Next
ということが出来ますが、それをレポート上のテキストボックスでやりたいです。


For cnt = 1 To 4
    Reports("レポート名").[tb & Cnt] = ""
Next

と記述しましたが、エラーが出てしましました。
エラーについては、下記のとおりです。
For cnt = 1 To 4
    Reports("レポート名").[tb & Cnt] = ""　←エラー発生位置（For文の1回目）
Next

ダイアログ
実行時エラー　'2465':
指定した式で参照されている'|1'フィールドが見つかりません。


レポート上のテキストボックスも、フォーム上のテキストボックスと同じようにFor文で通番を回し、初期化する方法が知りたいです。

よろしくお願いいたします。

Accepted Answer

レポートのモジュールに記述するなら、フォームでもレポートでも記述は同じです。

```vba
For cnt = 1 To 4
    Me("tb" & cnt) = ""
Next
```
上記は、省略記法なので、省略せずに記述すると、下記のようになります。（フォームでもレポートでも同じです。）

```vba
For cnt = 1 To 4
    Me.Controls("tb" & cnt).Value = ""
Next
```


ただし、レポートの場合、コントロールは非連結コントロールである必要があります。
また、コントロールのあるセクションのフォーマット時イベントに設定することになります。
開く時のイベントだとエラーになります。

レポート上では入力できず、固定出力になりますので、通常は初期化が必要になる場面はないはずです。

具体的に何をしたいかを明記したほうが適切な回答がつくでしょう。

Answer

質問内容がわかりにくくて申し訳ありませんでした。
それにもかかわらず、回答を頂き、ありがとうございました。

レポートは、フォームから呼び出していて、フォーム上でレポート上のテキストボックスなどに、いろいろと手を加えようと、あれこれしていました。
結局、フォーム上からいろいろとするのは力不足でできませんでした。なので、回答を頂いていた通り、レポート上のモジュールにやりたい事を記述しました。無事にFor文も実装できました。

みなさん、本当にありがとうございました。

Answer

レポートでも、Me("aaa" & i).Value = xxx 的なことは、実現可能です。
ただし、Accessの仕様で、レポートが開かれる前であれば、処理が可能です。
レポートの場合、一回開かれてしまうと、編集ができない仕様なのです。

Reportのイベントには、「Report_Load　読み込み時」というイベントがあります。
ここでは、値やレコードソースを変更することが可能です。

試して下さい。

Answer

質問がわかりにくいと思います。エラー箇所、エラーメッセージの表記
エラーメッセージをみてどう解釈したのかなど記載すべきです。

単純にtbをリテラルにしてないからなのではないですか？
tbという変数があるのですか？

```vba
'Reports("レポート名").[tb & Cnt] = ""
Reports("レポート名").["tb" & Cnt] = ""
```

これを直したとしても
```vba
Me("tb" & cnt) = ""
```
と同義になるかはわかりません。

### 追記

```vba
Me("tb" & cnt) = ""
```
Meはフォームで実行した場合は自分自身のオブジェクト、つまり
Forms("フォーム名")と同義です。
MeはForms("フォーム名")です。置き換えると
```vba
Forms("フォーム名")("tb" & cnt) = ""
```
となります。Meの部分を入れ替えているつもりなら
```vba
Reports("レポート名").["tb" & Cnt] = ""
```
は書き方も何もかも違います。フォームと同じように書くならまず同じように書いてみては？
ドットや角括弧などないものを増やさないようにして必要部分だけ書き換えましょう。

逆にフォームを
```vba
Me.["tb" & cnt] = ""
```
こうして成功するかどうか試してみては？同じエラーが出る気がしますね。