Microsoft Access 掲示板

プログラムの中でカウントする必要あるのかな？
テキストボックスの参照方法は提示した通りなのでそれぞれのテキストボックスが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