Dupliquer des enregistrements selon la valeur d'un champ

Version imprimable

18/08/2011, 13h02
youssefbsf

Dupliquer des enregistrements selon la valeur d'un champ

Bonjour

Je voudrais dupliquer N lignes en dessous d'une ligne
1) se positionner sur un enregistrement x ( là : je lis une valeur N )
2) Inserer N lignes juste en dessous de la ligne x
3) Copier toute la ligne x
4) Coller toute la ligne X sur les N lignes suivantes en incrémentant index par 1

Exemple :

__Champ1__N____index
1___A_____2
2___B_____1
3___C_____3

Resultat :

___Champ1__N__index
1___A______2____1
2___A______2____2
3___B______1____1
4___C______3____1
5___C______3____2
6___C______3____3

Comment Faire ???

Marciii D'avance :)
18/08/2011, 14h02
78chris
Bonjour

Ta question montre une approche un peu trop excellienne.

Dans une base de données, les enregistrements se placent les uns à la suite des autres, le tri n'est qu'une vue.

Crées un table contenant un champ et remplis là avec les valeurs de 1 à N (selon la valeur maximum N de ton champ N).
Appelons la SCALAIRE par exemple de même que le champ unique

Ensuite crées une requête
Code:

1 2 3 4 SELECT matable.champ1, matable.N, scalaire.scalaire AS [index] FROM matable, scalaire WHERE (((scalaire.scalaire)<=[N])) ORDER BY matable.nom, matable.N, scalaire.scalaire;
Tu peux toujours convertir cette requête en requête ajout et l'intéger à du VBA.

Ton exemple ne correspond d'ailleurs pas à ton énoncé car on ne vois pas la ligne X telle quà l'origine.

Effectivement ça ressemble plus à une question Excel...

Ce n'est pas très clair. Où veux-tu effectuer celà ? Dans une nouvelle table ?

Voici une autre approche par recordset :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Dupliquer()
    Dim rst, rst1 As DAO.Recordset
    Dim i As Integer
 
    Set rst = CurrentDb.OpenRecordset("MaTableSource")
    Set rst1 = CurrentDb.OpenRecordset("MaTableDestination")
 
    While Not rst.EOF
        For i = 1 To rst.Fields("N").Value
            rst1.AddNew
            rst1.Fields("champ1").Value = rst.Fields("champ1").Value
            rst1.Fields("N").Value = rst.Fields("N").Value
            rst1.Fields("Index").Value = i
            rst1.Update
        Next i
        rst.MoveNext
    Wend
 
    rst.Close
    rst1.Close
    Set rst = Nothing
    Set rst1 = Nothing
End Sub

Citation:

Envoyé par dut-dut

Effectivement ça ressemble plus à une question Excel...

Ce n'est pas très clair. Où veux-tu effectuer celà ? Dans une nouvelle table ?

Voici une autre approche par recordset :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Dupliquer()
    Dim rst, rst1 As DAO.Recordset
    Dim i As Integer
 
    Set rst = CurrentDb.OpenRecordset("MaTableSource")
    Set rst1 = CurrentDb.OpenRecordset("MaTableDestination")
 
    While Not rst.EOF
        For i = 1 To rst.Fields("N").Value
            rst1.AddNew
            rst1.Fields("champ1").Value = rst.Fields("champ1").Value
            rst1.Fields("N").Value = rst.Fields("N").Value
            rst1.Fields("Index").Value = i
            rst1.Update
        Next i
        rst.MoveNext
    Wend
 
    rst.Close
    rst1.Close
    Set rst = Nothing
    Set rst1 = Nothing
End Sub

Merciiii !!! Ca Marche :D