Discussion :

[cyrilmullard]

Bonjour a tous

J'ai a nouveau un petit probleme de prog sous access 2003, je suis un débutant en la matiere.

Cette fois-ci j'ai plusieurs champs calculés :

andradite spessartine pyrope grossulaire etc
10 20 50 20 teneur en % issue d'une formule
20 15 35 30

J'ai créé un champs calculé Dominant qui me renvoie la teneur la plus élevée

andradite spessartine pyrope grossulaire Dominant
10 20 50 20 50
20 15 35 30 35

Maintenant je souhaite créé un champs Molecule qui me renvoie le nom de la molécule dominante. Je souhaiterais obtenir le résultat suivant :

andradite spessartine pyrope grossulaire Dominant Molecule
10 20 50 20 50 pyrope
20 15 35 30 35 pyrope

Un grand merci d'avance.

[random]

on fait quoi en cas d'ex aequo

farine 30 g
beurre 30 g
moutarde 30g
acide sulfurique 10 g ?

dominant ?? molecule ??

[cyrilmullard]

Hello random,

ce n'est qu'un exemple. En fait les calculs donnent des valeurs avec deux chiffres apres la virgule et il y a tres peu de chances que deux valeurs soient identiques mais il est vrai que que ta question merite reflexion.

Je suis un debutant en VB et je dois avouer que je ne pas de reponse a ta question

[random]

sans réponse à la question je ne puis répondre à la tienne
ce n'est pas un problème de vba c'est un problème de logique

[cyrilmullard]

en fait je compare les valeurs calculées de champs différents. Pour un enregistrement les valeurs a comparer sont toujours différentes et par conséquent on a un champ Dominant unique et un champ Mol également unique.

Malgré tout si le probleme qu tu m'a soumis se posait le champ Mol recevrait la concaténation des champs contenant les val max

soit pour la premiere ligne de la requete
G1=656,1234 et G2=656,1234 Le champ Dominant doit me retourner 656,1234 et le champ Mol doit me retourner G1-G2

J'y suis parvenu sans passer par VBA en créant une formule conditionnelle mais ACCESS me dit que la requete est trop complexe ou la memoire insuffisante. C'est pourquoi je voudrais traduire toutes mes formules en fonctions VBA décrites dans un module unique.

[cyrilmullard]

Bonjour, je reviens a la charge pour vous demander de l'aide car je rame completement. D'ailleurs vous pouvez vous en rendre compte dans le code qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function EqualString(ParamArray LesVariables() As Variant) As String
 
Dim intVariable As Integer
Dim xstring As String
 
xstring = LesVariables(intVariable)
 
For intVariable = 1 To UBound(LesVariables())
 
If LesVariables(intVariable) = Dominant.Value Then xstring = LesVariables(intVariable).Name
 
Next intVariable
EqualString = xstring
End Function

Je souhaite créer une fonction qui contient en parametre les champs que l'on doit comparer avec le champ appelé Dominant. Le probleme est que je ne sais pas comment declarer le champs Dominant. Je dois prendre en compte sa valeur et le nom des champs comparés. En effet cette fonction doit retourner le nom du champs qui contient la valeur maximale inscrite dans le champs Dominant.

Dois-je passer par ADO76654 ? Si Oui pourriez-vous m'expliquer comment fonctionne ADO ?

Merci d'avance.