code méthode AddNew

**averooès** · 29/01/2009, 10h12

aider moi à savoire pour quoi ce code ne marche pas

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
Private Sub Commande20_Click()
Dim dbsTest As Database
Dim requetedef As QueryDef
Dim tdfNewtbl As TableDef
Dim rstRequete As DAO.Recordset
Dim rstTable As DAO.Recordset
Set dbsTest = CurrentDb
Set tdfNewtbl = dbsTest.CreateTableDef("Table2")
With tdfNewtbl
    .Fields.Append .CreateField("champ1t2", dbLong, 25)
    .Fields.Append .CreateField("champ2t2", dbText, 25)
End With
dbsTest.TableDefs.Append tdfNewtbl
Set requetdef = dbsTest.CreateQueryDef("Query", "SELECT Table1.champ1 as ChampReq1, Table1.champ2 As ChampReq2 " & _
                "FROM Table1 ")
Set rstRequete = dbsTest.OpenRecordset("Query", dbOpenDynaset)
Set rstTable = dbsTest.OpenRecordset("Table2", dbOpenDynaset)
 
 
While rstRequete.EOF
 
    rstTable.AddNew
    rstTable.Fields("champ1t2") = rstRequete.Fields("ChampReq1")
    rstTable.Fields("champ2t2") = rstRequete.Fields("ChampReq2")
    rstTable.Update
 
rstRequete.MoveNext
Wend
rstRequete.Close
rstTable.Close
Set rstRequete = Nothing
Set rstTable = Nothing
End Sub

ça fait pas mal de temps que je tourne autour.