MS Access 2003如何在使用多個字段的表單中進行最大-最小計算

Question

我有一個包含多個字段的表單。 我有一個字段，需要找到輸入數字的最大值和最小值，並從最大值中減去最小值。

基本上，用戶將數據輸入到以下形式：

• 欄位1 = 5
• 欄位2 = 4
• 欄位3 = 2
• 欄位4 = 1

• 欄位5 = 3

  fieldcalc =（max（field1，field2，field3，field4，field5））-（min（field1，field2，field3，field4，field5））

應該返回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)

該函數帶有一個標志以返回min或max以及一個ParamArray，您可以根據需要傳遞任意多個字段。 只需將所有值傳遞給它，然后執行減法運算即可。