Discussion :

[averooès]

sans passer par la requête création de table, j'ai fais un code pour copier le résultat de la requête dans une table

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
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 rdf = dbsTest.CreateQueryDef("Query", "SELECT champ1, " & _
                "champ2, FROM Table1")
Set rstRequete = dbsTest.OpenRecordset("Query", dbOpenDynaset)
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
While rstRequete.EOF <> True
Set rstTable = dbsTest.OpenRecordset("Table2", dbOpenDynaset)
tdfNewtbl.AddNew
    rstTable!champ1t2 = rstRequete!champ1
    rstTable!champ2t2 = rstRequete!champ2
tdfNewtbl.Update
rstRequete.MoveFirst
Wend
End Sub

le code ne fonctioone pas

[pc75]

Bonjour,

Pourquoi tu ne fais pas simplement :

Code :

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

1
2
 
select Table1.* into Table2 from Table1

[averooès]

oui je sais, mais moi je veux fixer les format des champs.

[willcartley]

Essaye d'enlever la virgule ici:

Code :

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

1
2
Set rdf = dbsTest.CreateQueryDef("Query", "SELECT champ1, " & _
                "champ2 FROM Table1")

aussi, je crois qu'il vaut mieux mettre cette partie avant le "While":

Code :

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

Set rstTable = dbsTest.OpenRecordset("Table2", dbOpenDynaset)

et ne pas oublier tout les "Closes" et "nothing" de tes objets utilisés...