Microsoft Access 掲示板

なんかデータベース的な作りが良くなさそうですね

書き方はいろいろありますが、1レコード分ずつループするようにして、データが無ければループを終わるようにすればいいでしょう

    Dim i As Long
    For i = 1 To 70 Step 5
        If Nz(Me("sn" & i) & Me("sn" & i + 1) & Me("sn" & i + 2) & Me("sn" & i + 3) & Me("sn" & i + 4)) = "" Then Exit For
        'やりたいこと
    Next

ありがとうございます。
シリアルの変数に＋１、＋２，＋３、＋４を足せばよかったのですね・・・。
すごく助かりました！！

もう一つ聞かせてください。
hirotonさんのプログラムで5個ずつ配列することはできました。
そこで合格数を調べたいのですが、5個ずつ配列するうち、sn1～sn5の間にシリアルがあればカウントし、
合格数に5個あれば５と表示、3個あれば３と表示したいのですが
hirotonさんのプログラムでカウントすることはできますでしょうか。

プログラムの中でカウントする必要あるのかな？
テキストボックスの参照方法は提示した通りなのでそれぞれのテキストボックスがNullじゃなければ1を足していけばいいですね

'やりたいこと
Dim 合格数 As Long
合格数 = 0
If Not IsNull(Me("sn" & i)) Then 合格数 = 合格数 + 1
If Not IsNull(Me("sn" & i + 1)) Then 合格数 = 合格数 + 1
If Not IsNull(Me("sn" & i + 2)) Then 合格数 = 合格数 + 1
If Not IsNull(Me("sn" & i + 3)) Then 合格数 = 合格数 + 1
If Not IsNull(Me("sn" & i + 4)) Then 合格数 = 合格数 + 1

繰り返しなのでループにしてもいいでしょう

'やりたいこと
Dim 合格数 As Long
Dim j As Long
合格数 = 0
For j = 0 To 4
    If Not IsNull(Me("sn" & i + j)) Then 合格数 = 合格数 + 1
Next