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 |
