Code for Creating Table

U

Url Ons

You can use the following SQL
dim dbs as database
set dbs = CurrentDb
dbs.execute "CREATE TABLE tblNameOtable(Name Text(25),
Address Text(30), SomeNum Number, DateOf Date);"

dbs.execute INSERT INTO tblNameOtable((Name Text(25),
Address Text(30), SomeNum Number, DateOf Date) Select
Field1, Field2, Field3, Field4 FROM tblImportedTable;"

Docmd.DeleteObject tblImprotedTable
dbs = nothing
RotsORuck
Url
 
S

Sandy

Many thanks!

-----Original Message-----
You can use the following SQL
dim dbs as database
set dbs = CurrentDb
dbs.execute "CREATE TABLE tblNameOtable(Name Text(25),
Address Text(30), SomeNum Number, DateOf Date);"

dbs.execute INSERT INTO tblNameOtable((Name Text(25),
Address Text(30), SomeNum Number, DateOf Date) Select
Field1, Field2, Field3, Field4 FROM tblImportedTable;"

Docmd.DeleteObject tblImprotedTable
dbs = nothing
RotsORuck
Url

.
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA code to assemble data spread across several rows. 6
Copy a Recordset??? 1
Creating a Lookup Table Using Do...Until Loop 2
Copy Records within a Table with SQL 7
Access 97 iTunes XML import 11
Compile error 1
Filtered Records as source for appending records to a table 1
Importing text, etc. on remote .mdb file 2

Top