ms-access - 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

また、これにより、FRM_PP1 から FRM_PP7 までの各フォーム名に Call CalcOverallRating があります。

コンボボックスを使用すると、無効な Null の使用というエラーが表示されます。助けてください