=(Nz([P1])+Nz([P2])+Nz([P3])+Nz([P4])+Nz([P5])+Nz([P6]))/-(([P1] Is Not Null)+([P2] Is Not Null)+([P3] Is Not Null)+([P4] Is Not Null)+([P5] Is Not Null)+([P6] Is Not Null))

Private Sub Кнопка15_Click()
Dim zkol, zsum
zkol = 0
zsum = 0
If Len("" & Me.A1) > 0 Then
zkol = zkol + 1
zsum = zsum + Me.A1
End If
If Len("" & Me.A2) > 0 Then
zkol = zkol + 1
zsum = zsum + Me.A2
End If
If Len("" & Me.A3) > 0 Then
zkol = zkol + 1
zsum = zsum + Me.A3
End If
If Len("" & Me.A4) > 0 Then
zkol = zkol + 1
zsum = zsum + Me.A4
End If
If Len("" & Me.A5) > 0 Then
zkol = zkol + 1
zsum = zsum + Me.A5
End If
If Len("" & Me.A6) > 0 Then
zkol = zkol + 1
zsum = zsum + Me.A6
End If
If zkol = 0 Then zkol = 1   '  вот это вообще не понятно,
Me.СредЗнач = zsum / zkol   '  почему при полном отсутствии данных среднее значение становится нулем?
Me.Refresh   "  и это зачем?
End Sub

Private Sub Кнопка15_Click()
 Dim zkol, zsum
 Dim i As Byte
 For i = 1 To 6
  If Not IsNull(Me("A" & i)) Then
   zkol = zkol + 1
   zsum = zsum + Me("A" & i)
  End If
 Next
 If zkol > 0 Then
  Me.СредЗнач = zsum / zkol
 Else
  Me.СредЗнач = Null
 End If
End Sub