コードに無駄が多すぎる気がする

質問

http://hiroba.chintai.net/qa7900795.html
こちらでも質問したものなのですが、ご提示いただいた内容が難しくてよくわからなかった為
自分でコードを作ったのですが、無駄が多すぎるような気がするので見てもらえますか？

やりたい事は、フォーム上のコントロールをタブインデックス順に取得したいのですが
---------------------------------------------------------
Option Compare Database
Option Explicit

Sub test()
Dim ctl As Control
Dim i As Integer
Dim j As Integer
Dim intTabIndex As Integer
Dim StrFormName As String

StrFormName = "SampleCode_SubForm"

DoCmd.OpenForm StrFormName, acDesign

For i = 0 To Forms(StrFormName).Controls.Count - 1
For j = 0 To Forms(StrFormName).Controls.Count - 1
Set ctl = Forms(StrFormName).Controls.Item(j)
If Forms(StrFormName).Controls.Item(j).ControlType = acTextBox Then 'TabIndexがないコントロールはエラーになる。
' Debug.Print "TabIndex:" & Forms(StrFormName).Controls.Item(j).TabIndex

Do While Forms(StrFormName).Controls.Item(j).TabIndex = intTabIndex '数が小さい順からTabIndexを照合していく（0～コントロールの最大値）
Debug.Print "TabIndex:" & Forms(StrFormName).Controls.Item(j).TabIndex & " " & Forms(StrFormName).Controls.Item(j).Name
intTabIndex = intTabIndex + 1
Exit For '該当のTabIndexが見つかったのなら抜ける
Loop

End If
Next j
Next i

End Sub
---------------------------------------------------------

これで一応取得できるのですが、かなり無駄があるように感じます。
フォームをループして一つずつコントロールを見て行ってるのですがもっと簡略化できないでしょうか？

ご回答よろしくお願いします。

回答No.3

sean9 · ベストアンサー

No.2 30246kikuさんのおっしゃる通り、フォームのコントロールを全部だとごちゃごちゃになる気がします。が、そのへんはうまいことやってくれるものとして、前に進みます。

■概要
フォームの中のコントロールをリストで取得 → TabIndexでソート

■使い方
フォームからのコールであれば
_controls = GetTabIndexes(Me)

■ソース
'ソートのデリゲード
Private Function TabIndexCompare(ByVal c1 As Control, ByVal c2 As Control) As Integer
　Return c1.TabIndex - c2.TabIndex
End Function

'フォームに含まれるコントロールをタブインデックス順に示す
Private Function GetTabIndexes(ByVal form As Form)
　Dim controls As New List(Of Control)

　For Each c As Control In Me.Controls
　　controls.Add(c)
　Next

　controls.Sort(AddressOf TabIndexCompare)

　Return controls
End Function

お礼

ありがとうございます。

回答No.2

30246kiku

TabIndex は、Section 毎に 0 ～ 連番で振られるようです。
なので、フォームの Controls を対象にすると、ごちゃごちゃになると思います。
ヘッダ、詳細、フッタに分けて、単に TabIndex 順にコントロール名を表示・・・

たぶん以下でいけるかと（未検証）

Public Sub Sample()
　　Dim dic As Object
　　Dim ctl As Control
　　Dim v As Variant
　　Dim i As Long
　　Const StrFormName As String = "SampleCode_SubForm"

　　DoCmd.OpenForm StrFormName, acDesign

　　On Error Resume Next
　　Set dic = CreateObject("Scripting.Dictionary")
　　With Forms(StrFormName)
　　　　For Each v In Array(1, 0, 2)
　　　　　　dic.RemoveAll
　　　　　　For Each ctl In .Section(v).Controls
　　　　　　　　Err = 0
　　　　　　　　i = ctl.TabIndex
　　　　　　　　If (Err = 0) Then dic.Item(i) = ctl.Name
　　　　　　Next
　　　　　　Debug.Print "> Section(" & v & ") TabIndex 順のコントロール名"
　　　　　　For i = 0 To dic.Count - 1
　　　　　　　　Debug.Print i, dic.Item(i)
　　　　　　Next
　　　　Next
　　End With
　　Set dic = Nothing
End Sub

※ 不都合あれば修正してください

お礼

ありがとうございます。

回答No.1

teketon

VBはよくわからないですが、
Controls.Countでコントロールの総数が取得できるなら、
1.最初にコントロール数分サイズの配列を作成
2.全コントロールを繰り返し処理で取得し、取得したtabIndex番目の配列に入れる
3.tabIndex順の配列が出来上がり。

とかじゃないんですかね？
重複・欠番・総数以上のtabIndex番号を考慮する必要はありますが。

お礼

ありがとうございます。