Compléments pour Microsoft Access

http://access.fr.free.fr/

Retourner la valeur maximale entre pls champ (Requête)

Description 

Cette fonction permet d'effectuer une comparaison entre plusieurs données de type numériques afin de retourner la valeur la plus élevée.

 
Synthaxe 

VariableMax (LesVariables)

La synthaxe de la fonction VariableMax comprend l'élément suivant :

ElémentsDescription
LesVariablesExpression de variant correspondant aux valeurs que l'on souhaite comparer.
 
Exemple 

Cette fonction pourra être utilisée directement dans du code ou alors être appelée dans une requête de la façon suivante :

SELECT Champ1, VariableMax([Val1], [Val2], [Val3]) As Resultat
FROM LaTable;
 
Code de la fonction 


Public Function VariableMax(ParamArray LesVariables() As Variant)
    'Retourne la variable la plus basse

    Dim intVariable As Integer
    Dim varMax

    For intVariable = 0 To UBound(LesVariables())
        If IsEmpty(varMax) Or IsNull(varMax) Or IsMissing(varMax) Then
            varMax = LesVariables(intVariable)
        End If
        If IsMissing(LesVariables(intVariable)) = False _
            And IsNull(LesVariables(intVariable)) = False _
            And IsNumeric(LesVariables(intVariable)) Then
            If LesVariables(intVariable) > varMax Then varMax = LesVariables(intVariable)
        End If
    Next intVariable

    VariableMax = varMax

End Function