vba fonction split dans une boucle

Version imprimable

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:

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

Salut,

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

Code:

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+

25/05/2009, 18h47
mymoi

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....
25/05/2009, 18h58
User

j'ai mis à jour mon code la dernière fois à 18h18:

si tu as copié mon code avant 18h18 recopie le une nouvelle fois ;)

A+
25/05/2009, 19h10
mymoi

je viens de le refaire 19h10 meme pb.

Merci
25/05/2009, 19h27
User

dernière mis à jour à 19h26.

cette fois j'ai testé le code.

VERIFIE TON SEPARATEUR ;)
26/05/2009, 10h17
mymoi

Citation:

Envoyé par User

dernière mis à jour à 19h26.

cette fois j'ai testé le code.

VERIFIE TON SEPARATEUR ;)

ça marche.
Merci de ton aide.