OVH Cloud OVH Cloud

Lecture d'une table en fonction des noms de champs

2 réponses
Avatar
JPG
Bonjour,
J'ai une table qui se présente ainsi :

Comm Réf01 Réf02 ... Réf20 Qté01 Qté02 ... Qté20
Paul A B ... Z 10 20 ... 15

Avec Réf01 correspondant = Qté01. En clair, Paul a vendu 10 A, 20 B, ... et
15 Z
J'aimerais le présenter ainsi dans ma table :

Comm Réf Qté
Paul A 10
Paul B 20
Paul ... ...
Paul Z 15

en me servant des 01, 02 qui apparaissent en bout de nom de champ.

Je sais faire la boucle sur VB mais je n'arrive pas à faire la correpondance
entre les noms de champs Réf et Qté.

Merci beaucoup pour votrez aide.

2 réponses

Avatar
Patrice
bonjour,

je suppose que tu as 2 tables A et B !

Ds B tu as 3 champs comm réf et qté

dim db as database,y as string, x as byte,R as string Q as long
set db=currentdb
set A1Û.openrecordset("A")
set B1Û.openrecordset("B")

do until A1.eof
for x= 1 to 20
if x<10 then y="0" & x
R¡("réf" & y)
Q¡("réf" & y)

B1.addnew
B1!comm¡!comm
B1!réf=R
B1!qté=Q
B1.update

next
A1.movenext
loop



Bonjour,
J'ai une table qui se présente ainsi :

Comm Réf01 Réf02 ... Réf20 Qté01 Qté02 ... Qté20
Paul A B ... Z 10 20 ... 15

Avec Réf01 correspondant = Qté01. En clair, Paul a vendu 10 A, 20 B, ... et
15 Z
J'aimerais le présenter ainsi dans ma table :

Comm Réf Qté
Paul A 10
Paul B 20
Paul ... ...
Paul Z 15

en me servant des 01, 02 qui apparaissent en bout de nom de champ.

Je sais faire la boucle sur VB mais je n'arrive pas à faire la correpondance
entre les noms de champs Réf et Qté.

Merci beaucoup pour votrez aide.





Avatar
Patrice
Petites précisions


bonjour,

je suppose que tu as 2 tables A et B !

Ds B tu as 3 champs comm réf et qté

dim db as database,y as string, x as byte,R as string Q as long,A1 as DAO.recordset ,B1 as DAO.recordset

set db=currentdb
set A1Û.openrecordset("A")
set B1Û.openrecordset("B")

do until A1.eof
for x= 1 to 20
if x<10 then y="0" & x else y=str(x)
R¡("réf" & y)
Q¡("réf" & y)

B1.addnew
B1!comm¡!comm
B1!réf=R
B1!qté=Q
B1.update

next
A1.movenext
loop



Bonjour,
J'ai une table qui se présente ainsi :

Comm Réf01 Réf02 ... Réf20 Qté01 Qté02 ... Qté20
Paul A B ... Z 10 20 ... 15

Avec Réf01 correspondant = Qté01. En clair, Paul a vendu 10 A, 20 B, ... et
15 Z
J'aimerais le présenter ainsi dans ma table :

Comm Réf Qté
Paul A 10
Paul B 20
Paul ... ...
Paul Z 15

en me servant des 01, 02 qui apparaissent en bout de nom de champ.

Je sais faire la boucle sur VB mais je n'arrive pas à faire la correpondance
entre les noms de champs Réf et Qté.

Merci beaucoup pour votrez aide.