Bonjour à tous,

Et merci de votre aide,

j'ai une table "Loisir" :

Num, Nom, prénom, DNN , Equipe
1 XX Y 22/23/1970 FM|RG|DR|TR|S|FR...
2 G E 23/01/1960 FM|RF|TR

Je souhaite transformer ces données d'un une autre table "Loisirtest" sous le format suivant:

Num, nom, prénom, DNN, eq1, eq2, eq3, eq4, eq5, eq6, eq7, eq8
1 XX Y 22/23/1970 FM RG DR TR S FR
2 G E 23/01/1070 FM RF TR

voila mon p'tit bout de code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set db = currentdb
set ReqLoisir = db.openrecordset ("loisir")
set RReqTest = db.openrecordeset (loisirtest")
do until Rs.EOF
if not is null (reqloisir)then
tableau 1= split(Reqloisir!equipe,"|")
For IN= Lbound(tableau) to Unbound(tableau)
if tableau(IN) <> " " then
 
reqloisir.addnew
ReqLoisir.num =RReqTest.num
ReqLoisir.nom=RReqTest.nom
ReqLoisir.prenom=RReqTest.prenom
ReqLoisir.dnn=RReqTest.dnn
je bloque a ce niveau là
 
next IN
Merci de votre aide