无效的使用无效

我希望这是我对这个数据库的最后一个问题。我写了一个代码：所有这一切都是对一组输入进行平均。无效的使用无效

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的。

当使用组合框时，它会出现无效使用空值的错误。请帮忙

来源

2013-07-25 Rufus

您已经在第一个IsNull()函数中包含了所有条件。这些应该是分开的条件：

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

删除开启和关闭的括号。

来源

2013-07-25 15:03:47

谢谢先生。我希望我能带你出去吃东西或哈哈。我仍然在研究滚动条的问题，但我认为我应该能够得到它。 – Rufus

无效的使用无效

回答

相关问题