テキストボックス名を変数で指定してプロパティ設定？

質問

Ms Access2000，2003 のVBAで
テキストボックスのプロパティを変更する時

Me.TextBoxName.Fontsize = 9

などと記述しますが、
この式の左側、テキストボックス名等を変数で処理することが出来るのでしょうか？

回答No.3

hatena1989 · ベストアンサー

ANo.1さんの回答の参照先は Visual Basic の例ですね。
AccessVBAはちょっと異なっていて癖がありますのでVBのコードをそのまま使えません。

■コントロール名(文字列型)を変数にする場合

Dim　strCtl As String

strCtl = "TextBoxName"

Me.Controls(strCtl).FontSize = 9

.Controls は省略することもできます。

Me(strCtl).FontSize = 9

■コントロールオブジェクト（オブジェクト型）を変数にする場合

Dim objCtl　As Object

Set　objCtl = Me.TextBoxName

objCtl.FontSize = 9

お礼

おおっ！
早速やってみました。
レポートの複数個のテキストボックスで同一処理をしたかったのですが、
これで、すっきりしました。
ありがとうございました。

回答No.2

m3_maki

Dim strControlName As String

strControlName "テキスト1"

Me.Controls(strControlName).Fontsize = 9

あるいは

Me(strControlName).Fontsize = 9

好みでどちらでも。

私は前者です。

お礼

もしかして、＝（等号）が抜けてます？

strControlName "テキスト1"　－＞　strControlName = "テキスト1"

後者をいただきます。
ありがとうございました。

回答No.1

osietete4

参照型使えば出来ます。
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard34.htm

お礼

回答ありがとうございました。
でも、よくわかりませんでした。