ページに乗っているコントロールの一覧を取得するコー

タブコントロールのページに乗っているコントロールの一覧を取得するコードを教えてください。

あくせすです。
1ページ目には、コマンドボタン、テキストボックスが乗っています。
それを取得したいです。
2ページ目には違うコントロールが乗っています。
2ページ目のコントロールは取得したくないです。

http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?p …
を参考に、
Sub test()
For Each tabctl As TabPage In TabControl1.TabPages
For Each ctl As Object In tabctl.Controls
If ctl.Name.toString.IndexOf("TextBox") > -1 Then
Dim tb As TextBox
tb = DirectCast(ctl, TextBox)
End If
Next
Next
End Sub
にしましたが構文エラーになってしまいました。
VB.NETのコードだからですよね。

ＶＢＡのコードをご教授いただけますか。よろしくお願いします。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2012/12/21 12:22

こんな風に

Sub CtrlList()
Dim Ctl As Control
DoCmd.OpenForm "フォーム1", acNormal 'AcDesign とかでも可
For Each Ctl In Forms("フォーム１")!タブ0.Pages(0).Controls
Debug.Print Ctl.Name, TypeName(Ctl) 'イミディエイトウィンドウに出力してます
Next
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2012/12/26 20:22