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

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

自分なりにＶＢＡで考えてみたのがこれです。
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 回答日時： 2009/04/15 08:20

n-junです。

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

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

この回答へのお礼

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

お礼日時：2009/04/15 23:06

No.2 回答者： 30246kiku 回答日時： 2009/04/14 23:28

以下の方法がイメージしやすいかも？

（自フォームのコントロールを取得）

　　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 は、自フォームへ配置したサブフォームコントロールの名前です。
（☆１のところは、サブフォーム内のコントロールを取得）

この回答へのお礼

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

お礼日時：2009/04/15 00:14

No.1 回答者： n-jun 回答日時： 2009/04/14 23:08

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」とマイナス１になるのでしょう？（不思議です）

お礼日時：2009/04/15 00:11