Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
 -  Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Requête - Retourner la valeur maximale entre pls champ

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

 


Date de création : 14/10/2006 @ 18:04
Dernière modification : 19/12/2006 @ 09:56
Catégorie : Requête
Page lue 2113 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Réaction n°1 

par Rommich le 20/01/2010 @ 11:50

Bonjour,

et merci pour ce code,

cependant je n'arrive pas à le faire fonctionner ...

J'ai créé un module en copiant le code et en le nommant VariableMax, puis j'ai créé une requête en mode SQL.

Un message d'erreur apparaît :

Fonction "VariableMax" non définie dans l'expression.

Pour plus de détail :

J'ai une table produits (tblProduits) avec 3 champs que j'aimerai comparer afin de déterminer le prix maxi(prixHyper1,prixHyper2,prixHyper3)

Avec la fonction max je réussi à déterminer le max de l'ensemble des prix de l'Hyper1, mais j'aimerais déterminer le Max d'une ligne et non d'une colonne

l'espression SQL de ma requête est donc la suivante :

SELECT Champ1, VariableMax([prixHyper1], [prixHyper2], [prixHyper3]) As Resultat
FROM tblProduits;

Je vous remercie d'avance pour vos réponses.

Romain


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 4

Total visites : Total visites : 174454  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.17 seconde