Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

º Concaténation par regroupement
º Création requête regroupement
º Retourner date plus ancienne entre pls champ
º Retourner date plus récente entre pls champ
º Retourner la valeur maximale entre pls champ

Retourner la valeur minimale entre pls champs
º Récupération du SQL

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Requête - Retourner la valeur minimale entre pls champs

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