null이 잘못되었습니다.

이 데이터베이스에 대한 마지막 문제가되기를 바랍니다. 나는 코드를 썼다 : 모든 것은 입력 그룹을 평균 한 것이다. 이와 또한null이 잘못되었습니다.

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_PP7을 통해 양식 이름 FRM_PP1의 각 통화 CalcOverallRating 있습니다.

콤보 박스를 사용할 때 Null의 잘못된 사용 오류가 발생합니다. 도와주세요

출처

2013-07-25 Rufus

모든 조건을 첫 번째 IsNull() 함수에 포함했습니다. 다음 조건을 분리해야합니다.

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

여는 괄호와 닫는 괄호를 제거하십시오.

출처

2013-07-25 15:03:47

고맙습니다. 나는 너를 먹을 것이거나 뭔가를 먹을 수 있었으면 좋겠다. 나는 아직도 스크롤 바 문제에 관해서 일하고있다. 그러나 나는 그것을 얻을 수 있어야한다고 생각한다. – Rufus

null이 잘못되었습니다.

답변

관련 문제