フォーム上のコントロールの名前を配列に格納したい

質問

アクセスです
フォーム上のコントロールの名前を配列に格納したいのですが
もっとスマートな方法はありますか？

私が考えたコードは

Dim avarContorol As Variant
Dim ctl As Control
Dim mystr As String

For Each ctl In Forms(Me.Name).Controls
mystr = mystr & ctl.Name & ","
Next ctl

'右から1文字消す
mystr = Left(mystr, Len(mystr) - 1)
avarContorol = Split(mystr, ",")

なのですが、
ループのみで格納できる方法があれば教えてください。

回答No.1

m3_maki · ベストアンサー

ループのみと言えるかどうか？

Dim avarControl As Variant
Dim ctl As Control
Dim i As Integer

ReDim avarControl(Me.Controls.Count - 1)

For i = 0 To Me.Controls.Count - 1
avarControl(i) = Me.Controls(i).Name
Next i

お礼

私が知らない方法なのでとても参考になりました！

回答No.2

bin-chan

配列と添字を宣言しておいて、ループ内でRedim pveserve使って
要素数を増しながら値を格納するとか
（ForEachなので添字をカウントアップする）

お礼

Redim pveserveについて調べてみます。ありがとうございました。