よくよく考えたらデータがきっちり詰めて入力されているなら、データがないレコードは先頭のデータだけチェックすれば大丈夫でした
Dim i As Long
For i = 1 To 70 Step 5
If Nz(Me("sn" & i)) = "" Then Exit For
'やりたいこと
Next
それぞれのシリアル値に対して何かしたいときは+1・・・+4でそれぞれ参照できますね
通報 ...
よくよく考えたらデータがきっちり詰めて入力されているなら、データがないレコードは先頭のデータだけチェックすれば大丈夫でした
Dim i As Long
For i = 1 To 70 Step 5
If Nz(Me("sn" & i)) = "" Then Exit For
'やりたいこと
Next
それぞれのシリアル値に対して何かしたいときは+1・・・+4でそれぞれ参照できますね