コントロールタイプを絞ってループしたい

質問

アクセスのフォーム上のコントロールをループする際に
テキストボックスだけ絞ってループしたいのですが

Sub Sample()
Dim myFormName As String
Dim ctl As Control
myFormName = "フォーム1"

For Each ctl In Forms(myFormName).Controls
If ctl.ControlType = acTextBox Then

End If
Next ctl

End Sub

これだとテキストボックスの量が多くて、２秒くらいかかるのですが
For Each ctl In Forms(myFormName).Controls
この時点で、テキストボックスだけ絞る方法はありますか？

For Each ctl In Forms(myFormName).ControlType(acTextBox)
こうするとエラーになりました。

ご教授よろしくお願いします。

回答No.1

hatena1989 · ベストアンサー

> これだとテキストボックスの量が多くて、２秒くらいかかるのですが
> For Each ctl In Forms(myFormName).Controls
> この時点で、テキストボックスだけ絞る方法はありますか？

ないですね。

私がよくつかうのは、テキストボックスの名前を下記のように規則的にものにしておき、Forループで名前で参照します。

txt1 txt2 txt3 ・・・・・　txt100

下記はフォームのモジュールで、１００個のテキストボックスに Null を代入する場合の例です。

Dim i As Long

For i = 1 To 100

Me.Controls("txt" & i).Value = Null

Next

多数のテキストボックスの名前を変更するのが面倒な時は、フォームをデザインビューで開いておいて、
標準モジュールの下記の関数を実行します。

Sub SetTxtName()
Dim myFormName As String
Dim ctl As Control
Dim i As Long
myFormName = "フォーム1"

For Each ctl In Forms(myFormName).Controls
If ctl.ControlType = acTextBox Then
i = i + 1
ctl.Name = "txt" & i
End If
Next ctl

End Sub

これで名前が変更されるので、あとはフォームを上書き保存します。
これは設計時に１回のみ実行すればOKです。

お礼

ありがとうございます。