Remplissage d'une table

[Beltegeuse]

Bonjour à tous,

J'aimerai savoir quelle requête ou quel module me permetterait de passer de la table A :

Code :

1
2
3
4
 
identifiant      An1                  An2
1                 0,46                  23
2                 1421                 1.48

à la table B :

Code :

1
2
3
4
5
6
 
numéroAn  identifiant     quantité
1                1               0.46
1                2               1421
2                1               23
2                2               1.48

Si vous quelqu'un a un moyen relativement simple, je suis preneur !!

Merci à tous d'avance pour vos réponses.

[jpcheck]

salut,
dans l'idée

Code :

1
2
3
4
INSERT INTO TableB (numéroAn, identifiant, quantité)
SELECT 1, TableA.identifiant, TableA.An1 FROM TableA 
UNION
SELECT 2, TableA.identifiant, TableA.An2 FROM TableA;

sous réserve de format des nombres et toutes les subtilités pas détectées jusqu'à présent

[Beltegeuse]

Merci pour la rapidité de la réponse !!!

Cependant, comment faire si on a par exemple :

Code :

1
2
3
4
 
identifiant      An1                  An2        
1                 0,46                  23
2                 1421                 -1

-1 signifie qu'il n'y a pas de liaison identifiant,An2 et cela de manière automatique (car dans la réalité, j'ai plus de 2000 identifiants et 60 An différents ...).

MErci de ton attention !!

[jpcheck]

euh,
tu as pas oublié de nous dire qu'en gros ton archi de base l'est toute nase
bon alors je suppose là encore qu'il n'y a qu'un champ identifiant et par la suite que des champs AnXX.

on peut passer par du code VBA pour aller plus vite:

Code :

1
2
3
4
5
6
7
8
9
dim TableA as TableDef
dim tempField As Field
Set TableA = CurrentDb.TableDefs("TableA")
For Each tempField in TableA
If tempField.Name <>"identifiant" Then
CurrentDb.Execute " INSERT INTO TableB (numéroAn, identifiant, quantité) " & _
"SELECT " & Replace(tempField.Name,"An","") &", TableA.identifiant, TableA." & tempField & " FROM TableA;"
End If
Next

[jpcheck]

et pour le coup du -1, tu fais un update en plus après, mais ce n'est pas super explicite de mon point de vue...

[Beltegeuse]

ok, je vais voir se que je peut faire avec ce morceau de code.
Je reviendrais si j'ai encore des problème !!

Merci de tes réponses !!!