Compléments pour Microsoft Access

Description

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

Synthaxe

VariableMin (LesVariables)

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

Eléments	Description
LesVariables	Expression 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, VariableMin([Val1], [Val2], [Val3]) As Resultat
FROM LaTable;

Code de la fonction

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

    Dim intVariable As Integer
    Dim varMin

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

    VariableMin = varMin

End Function

Retourner la valeur minimale entre pls champs (Requête)

SELECT Champ1, VariableMin([Val1], [Val2], [Val3]) As ResultatFROM LaTable;

SELECT Champ1, VariableMin([Val1], [Val2], [Val3]) As Resultat
FROM LaTable;