comment extraire les données d'un champs

**atmar** · 02/01/2008, 17h18

bonjour,
dans le cadre d'un travail j'ai crée une base de données pour recenser les dossiers existant dans une entité
j'ai commencé à saisir les données mais après un certain temps, je me rendais compte que j'aurais dû saisir les données autrement
voici la table actuelle

N° Code servic Nature Année Code Numéros
3 S tr 2004 102 2-12-13-15-16-18-19-20-

et voici le résultat que je veux voir affiché

N° Code serv Nature Année Code b Numéros
3 S tr 2004 102 2
3 S tr 2004 102 12
3 S tr 2004 102 13
3 S tr 2004 102 15
3 S tr 2004 102 16
3 S tr 2004 102 18
3 S tr 2004 102 19

aidez moi svp

**Jean-Philippe André** · 02/01/2008, 17h31

salut,
tu peux regarder les fonction split et ubound pour récupérer les valeurs entre "-" Plein d'exemple sont dispo sur le forum, et les tutos

**atmar** · 03/01/2008, 16h15

merci
mais j'arrive pas le faire

voulez vous bien m'expliquer davantage
merci infinment

**Jean-Philippe André** · 03/01/2008, 16h48

tu peux récupérer 2 12 etc dans un tableau avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

split(Numéros,"-")

tu créées donc un tableau Dim A(50) dans lequel tu récupères ces valeurs.
tu parcours par la suite ton tableau et mets en place tes requêtes d'ajout

**atmar** · 03/01/2008, 16h53

si je vous dis que je suis très débutant

**Jean-Philippe André** · 03/01/2008, 16h59

inutile de faire la tête hein, j'essaie de te faire progresser par toi même,
utilise ce code pour comprendre comment on se sert de split:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim st As String
Dim St1() As String
st = "2-16-18-23-29"
St1() = Split(st, "-")
For i = 0 To UBound(St1)
   MsgBox St1(i)
Next i

**atmar** · 03/01/2008, 17h03

je vais créee un nouveau module n'est ce pas?

**Jean-Philippe André** · 03/01/2008, 17h08

oui tu peux

**atmar** · 04/01/2008, 09h48

j'ai exécuter la commande
et comme résultat un message s'affiche contenant les chiffres séparés
mais c'est pas ça ce que je veux
je veux que le champs "numéros" ma table, qui contient plus de 600 lignes, soit découpé
c'est à dire je veux pour une ligne qui contient un champs "numéros" avec les valeurs suivantes "2-16-25-26-28" créer cinq lignes avec comme valeurs du champs numéros : 2 et 16 et 25 et 26 et 28 (une valeur pour chaque ligne)

**atmar** · 04/01/2008, 09h54

autrement dit, avoir comme résultat une nouvelle table avec un champs "numéros" à une et une seule valeur

**Jean-Philippe André** · 04/01/2008, 10h44

bon, comme il faut te prendre par la main, on va le faire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim st As String
Dim St1() As String
Dim RS as DAO.RecordSet
Set RS = CurrentDb.Openrecordset("SELECT * FROM MaTable")
'récupération de la liste à traiter
do until RS.EOF
st = RS!Numéros
St1() = Split(st, "-")
For i = 0 To UBound(St1)
'ajout dans la table
   CUrrentDb.Execute "INSERT INTO ManouvelleTable (N°, Code, servic, Nature, Année, Code, Numéros)  VALUES(" & RS!N° &"," & RS!Code & ",'" & RS!Servic & "','" & RS!Nature & "', " & RS!Code & "," & St1(i) & ")"
Next i
RS.Movenext
Loop

ce code marche si tu as coché la référence DAO, et que les tables soient bien nommées, que les types de champs correspondent.

J'ai très bien compris ce que tu veux, mais si je fais à ta place, tu ne progressera pas, ce qui n'est pas dans notre intérêt, ni pour toi, ni pour moi

Adapte ce code et tu t'en sortiras

**atmar** · 04/01/2008, 12h22

excusez mon ignorance
voilà, j'ai adapté le code et après exécution un message d'erreur s'affiche...
je pense qu'il a une relation avec l'activation de la référence DAO
comment faire pour la cocher?

**atmar** · 04/01/2008, 12h36

voilà
j'ai coché le réf DAO

**atmar** · 04/01/2008, 12h39

j'exécute
un message d'erreur s'affiche " erreur de compilation : instruction incorrecte à l'éxtérieur d'une procédure"
SET

**Jean-Philippe André** · 04/01/2008, 13h23

tu dois mettre le code dans une procédure

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
'code ici 
End Sub

**atmar** · 04/01/2008, 15h15

erreur de compilation : erreur de syntaxe

CUrrentDb.Execute "INSERT INTO invent (N°, Code, Nature, Année, Codebur, Numéros ) VALUES(" & RS!N° &"," & RS!Code & ",'" & RS! Nature & "','" & RS!Année & "', " & RS!Codebur & "," & St1(i) & ")"

**atmar** · 04/01/2008, 15h19

Envoyé par atmar

erreur de compilation : erreur de syntaxe

CUrrentDb.Execute "INSERT INTO invent (N°, Code, Nature, Année, Codebur, Numéros ) VALUES(" & RS!N° &"," & RS!Code & ",'" & RS! Nature & "','" & RS!Année & "', " & RS!Codebur & "," & St1(i) & ")"

CurrentDb.Execute "INSERT INTO invent (N°, Code, Nature, Année, Codebur, Numéros) VALUES(" & RS!N° & "," & RS!Code & ",'" & RS!Nature & "','" & RS!Année & "', " & RS!Codebur & "," & St1(i) & ")"