MS Access 2003 다중 필드를 사용하여 양식에서 최대 - 최소 계산을 수행하는 방법

Question

여러 필드가있는 양식이 있습니다. 나는 입력 한 숫자의 최대 값과 최소값을 찾고 최대 값에서 최소값을 뺄 필요가있는 필드가 있습니다.

기본적 사용자 것이다 형태로 입력 된 데이터 :

• 필드 1 = 5
• FIELD2 = 4
• FIELD3 = 2
• 입력란 4 = 1

• 입력란 5 = 3

  fieldcalc = (max (field1, field2, field3, field4, field5)) - (min (필드 1, 필드 2, 필드 3, 필드 4, 필드 D5))

4

가 어떻게이 구현합니까 반환해야합니까?

Answer 1

당신은이 같은 기능을 쓸 수 있습니다 :

Public Function ReturnMinOrMax(intMinOrMax As Byte, ParamArray vals()) As Long 
'intMinOrMax: 0 for min, non-0 for max 

    Dim v As Variant 
    Dim i As Variant 

    i = vbNull 

    For Each v In vals 
     If IsNull(v) = False Then 
      If IsNull(i) = True Then i = v 

      Select Case intMinOrMax 
       Case 0 
        If v < i Then i = v 
       Case Else 
        If v > i Then i = v 
      End Select 
     End If 
    Next 

    ReturnMinOrMax = CLng(i) 

End Function 

을 그리고 다음과 같이 호출 :

이

fieldcalc = ReturnMinOrMax(1, field1, field2, field3, field4, field5) - ReturnMinOrMax(0, field1, field2, field3, field4, field5) 

기능은 ParamArray뿐만 아니라 최소 또는 최대를 반환하는 플래그를 걸립니다 당신이 할 수있는 원하는만큼 필드를 전달하십시오. 그냥 모든 값을 전달하고 빼기 작업을 수행하십시오.