Discussion :

[Bonero]

Bonsoir,
J’ai un probleme qui me casse la tete depuis des jours; j’espere pouvoir en trouver la solution ici ou au moins une piste de solution.

Code :

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

1
2
3
4
TableA :
fn1	fn2	fn3	fn4
1	2	3	4
5	6	7	8

Code :

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

1
2
Table B: elle est vide.
A	B

J’aimerais pouvoir TRANSPOER le contenu de TableA dans TableB de facon a obtenir le resultat suivant:

Code :

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

1
2
3
4
5
6
TableB:
A	B
1	5
2	6
3	7
4	8

Merci d’avance de votre precieuse aide.
Bonero.

[tee_grandbois]

Bonsoir,
je suppose qu'il n'y a pas que 2 enregistrements dans la table. Voici un code qui remplit la table B en stockant les champs dans 2 tableaux tous les 2 enregistrements:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Function ChargeTableB()
Dim oRstA As Recordset
Dim oRstB As Recordset
Dim ChampA() As Variant
Dim ChampB() As Variant
Dim I As Integer
 
Set oRstA = CurrentDb.OpenRecordset("select * from TableA")
Set oRstB = CurrentDb.OpenRecordset("TableB", dbOpenDynaset)
 
' Redimensionnement des tableaux en fonction du nombre de champs
ReDim ChampA(oRstA.Fields.Count - 1)
ReDim ChampB(oRstA.Fields.Count - 1)
 
    While Not oRstA.EOF
        If oRstA.AbsolutePosition = 0 Or oRstA.AbsolutePosition Mod 2 = 0 Then
        ' Chargement des colonnes A, enregistrement 1
            For I = 0 To oRstA.Fields.Count - 1
               ChampA(I) = oRstA.Fields(I)
            Next I
        Else
        ' Chargement des colonnes B, enregistrement 2
            For I = 0 To oRstA.Fields.Count - 1
               ChampB(I) = oRstA.Fields(I)
            Next I
        End If
 
        If oRstA.AbsolutePosition Mod 2 <> 0 Then
        ' Ajout des enregistrements dans la table B
            For I = 0 To UBound(ChampA)
                oRstB.AddNew
                oRstB.Fields(0) = ChampA(I)
                oRstB.Fields(1) = ChampB(I)
                oRstB.Update
            Next I
        ' Initialisation des tableaux
            For I = 0 To UBound(ChampA)
                ChampA(I) = Null
                ChampB(I) = Null
            Next I
        End If
        oRstA.MoveNext
    Wend
 
    ' Ajout des 4 colonnes A si nombre d'enregistrements est impair (donc tableau A n'est pas null)
    If Not IsNull(ChampA(0)) Then
        For I = 0 To UBound(ChampA)
            oRstB.AddNew
            oRstB.Fields(0) = ChampA(I)
            oRstB.Fields(1) = ChampB(I)
            oRstB.Update
        Next I
    End If
 
  oRstA.Close
  Set oRstA = Nothing
  oRstB.Close
  Set oRstB = Nothing
 
End Function