Discussion :

[finiderire]

Bonjour,

J'ai une base de données Microsoft Access.
J'ai plusieurs requêtes que je dois convertir en tables.

Voici comment je fais pour une conversion :
1) je double clic sur Requêtes/Créer une requête en mode Création
2) je sélectionne la requête à convertir dans la liste de l'onglet Requêtes
3) je clic sur Ajouter et Fermer
4) je double clic sur *
5) je clic sur la flêche de Type De Requête
6) je clic sur Requête Création de Table
7) je donne à la nouvelle table celui de la requête précédé de t_
8) je clic sur le Point d'Exclamation pour exécuter
9) je clic Oui pour créer la table
10) j'enchaîne sur la suivante en faisant Supprimer La Table puis Afficher La Table

Question>>> Existe-il une façon plus rapide de faire ?

a+, =)
-=Finiderire=-

[cafeine]

Hello,

oui, il y a plus facile

crée une table t_qry2table
avec un champ strQry
tu pourras y mettre le nom de chaque requête à transformer en Table
Ajoute la référence DAO ...

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
Function Query2Table()
 
dim db as DAO.Database
dim rec as DAO.Recordset
 
set db= currentdb
set rec=db.openrecordset("t_qry2table", dao.dbopenforwardonly)
docmd.setwarnings False
do while not rec.eof
   docmd.runSQL "SELECT * INTO [T_" & rec.fields("strQry") & "] FROM [" & rec.fields("strQry") & "]"
   debug.print "Création de la table à partir de la requête : " & rec.fields("strQry")
   rec.movenext
loop
 
docmd.setwarnings True
set rec=nothing
set db=nothing
End function