ACCESSのフォームについて

質問

４０個のテキストボックスがあり、この情報を一括変換したいのですが、

Me.テキスト1.Value="1"
Me.テキスト2.Value="2"
　・・・
Me.テキスト40.Value="40"

としてもいいのですが、
FOR文かなにかでソースを簡潔にする方法はあるのでしょうか？
よろしくお願いしますm(_ _)m

(WindowsXP、ACCESS2002です)

回答No.1

ryuu001 · ベストアンサー

Dim Ctrl As String
Dim I As Integer

For I = 1 To 40
Ctrl = "テキスト" & Trim(Str(I))
Controls(Ctrl).Value = Trim(Str(I))
Next

お礼

ryuu001さん　ありがとうございますm(_ _)m

回答No.2

ja7awu

Dim N As Integer
For N = 1 To 40
　　Me.Controls("テキスト" & N).Value = CStr(N)
Next N

お礼

ja7awuさん　ありがとうございますm(_ _)m