vba fonction split dans une boucle

**mymoi** · 25/05/2009, 17h16

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

**User** · 25/05/2009, 17h45

Salut,

Tout d'abord ton code comporte des incohérences..

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Dim ReqLoisir As DAO.Recordset
Dim RReqTest As DAO.Recordset
 
Set db = CurrentDb
Set ReqLoisir = db.OpenRecordset("loisir", dbOpenSnapshot)
Set RReqTest = db.OpenRecordset("loisirtest", dbOpenDynaset)
 
Do Until ReqLoisir.EOF
 
RReqTest.AddNew
RReqTest!num = ReqLoisir!num
RReqTest!Nom = ReqLoisir!Nom
RReqTest!Prenom = ReqLoisir!Prenom
RReqTest!dnn = ReqLoisir!dnn
' On va essayer de débloquer a ce niveau là
 
   If Not IsNull(ReqLoisir!equipe) Then
   tableau = Split(ReqLoisir!equipe, "|")
 
   For I = LBound(tableau) To UBound(tableau)
 
      If tableau(I) <> " " Then
         RReqTest.Fields("Eq" & (I + 1)) = tableau(I)
      End If
 
   Next I
 
   End If
 
RReqTest.Update
 
ReqLoisir.MoveNext
 
Loop
 
' fermeture des variables
RReqTest.Close
ReqLoisir.Close

J'ai trouvé beaucoup d'erreurs dans ton code, je te conseil donc d'aller voir ce lien:
http://warin.developpez.com/access/dao/

Si tu veux comprendre la manipulation des données en DAO.

Bonne continuation ...(c'est jamais évident au début

)

A+

**mymoi** · 25/05/2009, 18h47

Merci de ton aide,

mais j'ai toujours le meme pb,

il prend toujours la première valeur du champ Equipe, qu'il affiche dans les champs eq1, eq2, eq3....