mise en relation de nom / valeur de champ

[lbar012001]

Bonjour,

Pour simplifier, j'ai une table MAIN comprenant une 26 champs nommés A, B, C etc etc jusqu'à Z qui contiennent des valeurs numériques.

j'ai dans une autre table qu'on nommera SOURCE avec un champ CODE qui contient une valeur située entre A et Z associée à un champ QUANTITE.

Je souhaite placer la valeur du champ QUANTITE de ma table SOURCE dans le champ de la table MAIN correspondant à la valeur du champ CODE de ma table SOURCE.

Par ex si j'ai dans SOURCE, CODE = S et QUANTITE = 7 alors je met 7 dans le champ S de ma table MAIN.

Actuellement, j'ai un SELECT CASE avec 26 cas dedans mais je pense qu'on doit pouvoir faire plus simple ?

Code :

1
2
3
4
5
6
Select case SOURCE.CODE
case A 
MAIN.A=SOURCE.QUANTITE
case B
MAIN.B=SOURCEQUANTITE
'etc etc

Merci
LB

[jpcheck]

salut,

deja, je partirai sur une simplification du type

'en partant du principe que tu es sur des Recorsets nommes Main et Source

Code :

Main.Fields(Source.Fields("Code").Value).Value = Source.Fields("Quantite").Value