変数を持つフォーム要素

Question

変数の名前の範囲内で変数を使用する場合、どうすればよいですか？私は少し錆びており、これを行うための正しい構文を覚えたり、見つけることができません。

例：ユーザーフォームオブジェクトの

For x = 1 To 6 
    txtBoard [x].Caption = rst(0) 
    If Not rst(0) = "" Then 
     boardPresent(x) = True 
    End If 
    txtBoardSer [x].Caption = rst(1) 
    rst.MoveNext 
Next 

Answer 1

使用Controlsコレクションが自分の名前でコントロールをつかむために

With Me '<--| reference your userform 
     For x = 1 To 6 
      .Controls("txtBoard" & x).Caption = rst(0) 
      If Not rst(0) = "" Then 
       boardPresent(x) = True 
      End If 
      .Controls("txtBoardSer" & x).Caption = rst(1) 
      rst.MoveNext 
     Next 
    End With