フォーム上の全てのコントロールを取得したい

質問

フォーム上の全てのコントロールを取得したいです。
（サブフォームも含め）

自分なりにＶＢＡで考えてみたのがこれです。
Sub test()
Dim 数 As Long
For Each 数 In Form_フォーム1.Controls.Count
’Debug.Print　？
End If
Next
End Sub

でもこれだけでもデバックしてみると
「コンハ゜イルエラー
for　Eachは、コレクション　オブジェクトまたは配列でのみ繰り返しを実行します。」
となります。
答えを教えてください！
よろしくお願いします。
（アクセス2003です）

回答No.3

n-jun · ベストアンサー

n-junです。

＞ただなぜ「Controls.Count - 1」とマイナス１になるのでしょう？（不思議です）
インデックスが0から始まるからでは？

コントロールが５個あれば、0～4までの”５個”と言う感じで。

お礼

なるほど！納得しました！再度ありがとうございます。

回答No.2

30246kiku

以下の方法がイメージしやすいかも？
（自フォームのコントロールを取得）

　　Dim ctl As Control

　　For Each ctl In Me.Controls
　　　　Debug.Print ctl.Name
　　Next
　　For Each ctl In Me.FSUB.Form.Controls　'☆１
　　　　Debug.Print ctl.Name
　　Next

※ ☆１での FSUB は、自フォームへ配置したサブフォームコントロールの名前です。
（☆１のところは、サブフォーム内のコントロールを取得）

お礼

見事こちらでもできました！
ありがとうございます。

回答No.1

n-jun

Sub try()
Dim i As Integer

For i = 0 To Form_フォーム1.Controls.Count - 1
Debug.Print Form_フォーム1.Controls.Item(i).Name
Next

End Sub

AccessVBAは初めてなので、的はずれでしたらごめんなさい。

お礼

見事できました！ありがとうございます。
ただなぜ「Controls.Count - 1」とマイナス１になるのでしょう？（不思議です）