表記方法

ACCESSVBAでの質問です。
入力項目を10箇所用意して、名前を「Search1」～「Search10」と付けています。
このボックスのNULLチェックをループを使い行いたいのですが、以下の書き方だとsearchには文字で"search1"と入ってしまい、ボックスの値を取ることが出来ません。
search1～10の値を取得するにはどのように書けばいいのでしょうか。
よろしくお願い致します。

Do While counter <= 10
Dim search As String
search = "search" & counter
If Check_Numeric(search) = False Then
error = "NULL"
End If
counter = counter + 1
Loop

No.2 ベストアンサー 回答者： maro200 回答日時： 2002/03/18 15:52

こんにちは。

３行目をこう変えるだけでよいのではないでしょうか。
（Meは、Formです。ここをForm名に置き換えてもよいです。）

↓↓↓↓↓

search = Me("search" & counter)

この回答へのお礼

きっと簡単な方法があるはずだと思いながらも、全然わからなくて困っていました。
本当に助かりました。ありがとうございます。

お礼日時：2002/03/18 18:16

No.1 回答者： maruru01 回答日時： 2002/03/18 11:42

こんにちは。

maruru01です。

コレクションを使用すると出来ます。
とりあえず、全てテキストボックスとして、

（宣言部）
Private TextCollection As New Collection

（フォームのLoadイベントなどで）
With TextCollection
　　.Add Item:=Me!Search1
　　.Add Item:=Me!Search2
　　（中略）
　　.Add Item:=Me!Search10
End With

（Nullチェックするプロシージャで）
Dim TempText As TextBox

For Each TempText In TextCollection
　　TempText.SetFocus
　　If Check_Numeric(TempText.Text) = False Then
　　　　error = "NULL"
　　End If
Next TempText

（順番に値を配列変数に代入する場合は）
Dim Str() As String
Dim i As Long

ReDim Str(TextCollection.Count - 1)
For i = 1 To TextCollection.Count
　　TextCollection(i).SetFocus
　　Str(i - 1) = TextCollection(i).Text
Next i

詳細はヘルプで"Collection"を参照して下さい。
では。

この回答へのお礼

いつも有難うございます。
毎回わかりやすく書いて頂きとても感謝しています。
今回はmaro200さんの簡単なやり方で対応しようと思います（笑）
また何かあればよろしくお願いします。

お礼日時：2002/03/18 18:18