access vbでループ処理

質問

レコードセットでテーブルの内容をフォームのテキストボックスに表示
させたいのですが、vbの知識が無く困ってます。以下の処理をループ処理で
簡単に出来ないでしょうか。

' PASU1 = rs!PASU
' rs.MoveNext
' PASU2 = rs!PASU
' rs.MoveNext
' PASU3 = rs!PASU
' rs.MoveNext
' PASU4 = rs!PASU
' rs.MoveNext
' PASU5 = rs!PASU
' rs.MoveNext
' PASU6 = rs!PASU

レコードセットは,
Do Until rs.EOF
　　loop
を用いれば繰り返し出来ると解っているのですがフォームの,
PASU[1,2,3,,,]の数字の部分を指定することが出来ずにいます。

変数など駆使すれば出来ると思うのですが良くわかりません。
どなたか教えてください。

回答No.1

aptiva · ベストアンサー

me("PASU" & i) = rs!PASU
で、良かったとおもいます。
iはループ変数です。

お礼

お礼遅れました、すみません。アドバイスありがとうございます。助かりました。

回答No.2

tksoft

For i = 1 To 6
if rs.EOF Then
'ここにrsにレコードが無かった時の処理を書く
Else
Me("PASU" & i) = rs("PASU")
rs.MoveNext
End If
Next

で、出来ると思います。 rs("PASU")とrs!PASUは同じことです。個人的な趣味からちょっと書き換えさせてもらいました。
ちょっといらないことを書きすぎたかと思いますが参考にしてください。

お礼

ありがとうございます。非常に参考になります。