How to Merge Records from Two Identical Access Databases

[JK]

I saw Danny Lesandrini's article on Database Journal
(http://www.databasejournal.com/featu...le.php/2236471)
on how to merge tables from identical databases. This is exactly what
I'm trying to do (we have 3 field offices and want to merge all of
their data into one database so we can report out on all three), but
instead of doing it by hand, I want to write code so a user can just
click a button and it will merge the three databases together. The
problem I'm running into in doing this is that I can't seem to do
Danny's step 1 (Remove the autonumber from EmployeeID field in
tblEmployee for Site B) using VBA.

In all the forum posts I've read, it says that it is not possible to
do this in VBA. I tried doing this with a line of code similar to:

tbl.Columns.Item("AutoNumberFieldName").Properties ("AutoIncrement").Value
= No

But according to what people post online, it is not possible to change
this value in an existing table. I'm using Access 2003. Is this
still true with v2003? Any advice from Danny or anyone else out there
on how I might accomplish this?

Thanks,
JK

[Lyle Fairfield]

JK wrote:

tbl.Columns.Item("AutoNumberFieldName").Properties ("AutoIncrement").Value
= No

But according to what people post online, it is not possible to change
this value in an existing table. I'm using Access 2003. Is this
still true with v2003? Any advice from Danny or anyone else out there
on how I might accomplish this?

CurrentProject.Connection.Execute "ALTER TABLE Table1 ALTER COLUMN ID
Integer"

[JK]

Wonderful.
Fabulous.
Perfect.

In other words - that worked!

Muchos gracias,
JK
Lyle Fairfield wrote:

JK wrote:

tbl.Columns.Item("AutoNumberFieldName").Properties ("AutoIncrement").Value
= No

But according to what people post online, it is not possible to change
this value in an existing table. I'm using Access 2003. Is this
still true with v2003? Any advice from Danny or anyone else out there
on how I might accomplish this?

CurrentProject.Connection.Execute "ALTER TABLE Table1 ALTER COLUMN ID
Integer"