Discussion :

[cyrilmullard]

Bonjour a tous,

Je travaille actuellement sous access 2003.

Je dispose d'une table composée d'analyses chimiques d'environ 15 constituants.

Je dois réaliser au final un tableau comprenant de nombreux calculs permettant de définir le minéral en fonction des analyses brutes.

J'ai donc créé de nombreux champs calculés.

Mon probleme est double ;

- d'une part je souhaiterais définir la valeur max parmi 12 champs calculés. Existe-t-il une fonction Max basée sur plusieurs champs et non sur un seul?

- d'autre part j'ai trouvé une solution couteuse en poids (conditionnelles imbriquées) et le souci est que je dois effectuer d'autres calculs eux-memes basés sur ce champs calculé. Ainsi, Access m'indique que la requete est trop complexe ou que la mémoire est insuffisante.


Auriez vous une solution plus simple et moins lourde?

Merci d'avance en espérant avoir été assez clair dans mes explications

[francishop]

Bonsoir;

Code créé par Jessy Sempere.

Le code qui suit permet d'effectuer une comparaison entre plusieurs champs et de retourner la valeur la plus grande.

L'argument "LesVariables()" est une variable tableaux dans laquelle figureront toutes les valeurs à comparer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Function VariableMax(ParamArray LesVariables() As Varian
 
Dim intVariable As Integer
Dim varMax
For intVariable = 0 To UBound(LesVariables())
     If LesVariables(intVariable) > varMax Then varMax = LesVariables(intVariable)
Next intVariable
VariableMax = varMax
 
End Function

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT Champ1, VariableMax([Val1], [Val2], [Val3]) AS Resultat
FROM LaTable;

Cordialement.

[cyrilmullard]

Merci Francishop je vais essayer ton script.

excuse moi la réponse fut longue a venir car je suis au Québec actuellement et je n'ai acces a Internet qu'au boulot.

[cyrilmullard]

Résolu!

Merci beaucoup,

cela fonctionne parfaitement