Недопустимое использование null

Question

Надеюсь, это моя последняя проблема с этой базой данных. Я написал код: все это усреднение группы входов.

Public Sub CalcOverallRating() 
Dim li_CalcValue As Integer 

If IsNull((Forms![FRM_CSR]![PP1]!CBX_PP1.Value) Or _ 
      IsNull(Forms![FRM_CSR]![PP2]!CBX_PP2.Value) Or _ 
      IsNull(Forms![FRM_CSR]![PP3]!CBX_PP3.Value) Or _ 
      IsNull(Forms![FRM_CSR]![PP4]!CBX_PP4.Value) Or _ 
      IsNull(Forms![FRM_CSR]![PP5]!CBX_PP5.Value) Or _ 
      IsNull(Forms![FRM_CSR]![PP6]!CBX_PP6.Value) Or _ 
      IsNull(Forms![FRM_CSR]![PP7]!CBX_PP7.Value)) Then 
    'Don't calculate if any values are null 
Else 
    li_CalcValue = (Forms![FRM_CSR]![PP1]!CBX_PP1.Value + _ 
        Forms![FRM_CSR]![PP2]!CBX_PP2.Value + _ 
        Forms![FRM_CSR]![PP3]!CBX_PP3.Value + _ 
        Forms![FRM_CSR]![PP4]!CBX_PP4.Value + _ 
        Forms![FRM_CSR]![PP5]!CBX_PP5.Value + _ 
        Forms![FRM_CSR]![PP6]!CBX_PP6.Value + _ 
        Forms![FRM_CSR]![PP7]!CBX_PP7.Value)/7 
    Forms![FRM_CSR].Text270.Value = li_CalcValue 
    Forms![FRM_CSR].[Overall CSR].Value = li_CalcValue 
End If 

End Sub 

Кроме того, с этим у меня есть CalcOverallRating вызова в каждом из имен форм FRM_PP1 через FRM_PP7.

При использовании combobox возникает ошибка неправильного использования Null. Пожалуйста, помогите

Answer 1

Вы включили все ваши условия в первую функцию IsNull(). Эти условия должны быть отделены друг от друга:

If IsNull(something) Or IsNull(somethingElse) ... Then 

удалить открывающиеся и закрывающиеся круглые скобки.