hiroton
2021/10/06 (水) 16:39:43
7536f@f966d
なんかデータベース的な作りが良くなさそうですね
書き方はいろいろありますが、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
通報 ...