maks of min i access

Lav en forespørgsel hvor du viser totaler med felterne Mål og værdi. Grupper efter Mål og i feltet vælger du Maks.

Copy these two functions to a modul. Then in your query you use something like this.

Result: Maximum([field1],[field2],[field3],[field4],[field5])-Minimum([field1],[field2],[field3],[field4],[field5])


Function Minimum(ParamArray FieldArray() As Variant)
  ' Declare the two local variables.
  Dim I As Integer
  Dim currentVal As Variant

  ' Set the variable currentVal equal to the array of values.
  currentVal = FieldArray(0)

  ' Cycle through each value from the row to find the smallest.
  For I = 0 To UBound(FieldArray)
      If FieldArray(I) < currentVal Then
        currentVal = FieldArray(I)
      End If
  Next I

  ' Return the minimum value found.
  Minimum = currentVal

End Function

Function Maximum(ParamArray FieldArray() As Variant)
  ' Declare the two local variables.
  Dim I As Integer
  Dim currentVal As Variant

  ' Set the variable currentVal equal to the array of values.
  currentVal = FieldArray(0)

  ' Cycle through each value from the row to find the largest.

  For I = 0 To UBound(FieldArray)
      If FieldArray(I) > currentVal Then
        currentVal = FieldArray(I)
      End If
  Next I

  ' Return the maximum value found.
  Maximum = currentVal

End Function

kanon tak terry  du er der hver gang ;O)

slev tak