Cannot copy a table in VBA

[WAVP375]

I am attempting to copy a table at year end for future processing.
The two tables involved are identical straight forward tables, TblVolunteers and TblLastYear.
When I execute the command, DoCmd.CopyObject, "TblVolunteers", acTable, "TblLastYear"
I get a message 'The name you entered already exists for another object of the same type in this database.
Do you wish to replace the existing table "TblVolunteers? Yes/No
I'm not trying to replace "tblVolunteers" , just copy it. If I select 'Yes' I then get another message,
Runtime error 2387
You cant delete table "TblVolunteers" it is participating in one or more relationships.
Once again I am not attempting to delete the table.

What am I missing?



Thanks

[ranman256]

Odd.
try a make table query.
tho you don't normally destroy existing tables....you make a copy.

[WAVP375]

Odd.
try a make table query.
tho you don't normally destroy existing tables....you make a copy.

That works well. I was just trying to eliminate 1 query.

Not my day however.
Attempting to join a unmatch query with three fields from another table,
QmatTblLastYearToTblVolunteers and TblVolEd.
All fields in the query and three fields in the table are included in the query design frame.
All seems normal but the result is blank.
I'm not much on the SQL but from what I see it looks fine also.

SELECT QmatTblLastYearToTblVolunteers.Badge, QmatTblLastYearToTblVolunteers.FirstName, QmatTblLastYearToTblVolunteers.LastName, QmatTblLastYearToTblVolunteers.Title, QmatTblLastYearToTblVolunteers.StatusCode, QmatTblLastYearToTblVolunteers.TypeCode, QmatTblLastYearToTblVolunteers.KindCode, QmatTblLastYearToTblVolunteers.Street1, QmatTblLastYearToTblVolunteers.Street2, QmatTblLastYearToTblVolunteers.City, QmatTblLastYearToTblVolunteers.State, QmatTblLastYearToTblVolunteers.Zip, QmatTblLastYearToTblVolunteers.HomePhone, QmatTblLastYearToTblVolunteers.CellPhone, QmatTblLastYearToTblVolunteers.Email, QmatTblLastYearToTblVolunteers.LifeHours, QmatTblLastYearToTblVolunteers.YTDHours, QmatTblLastYearToTblVolunteers.StartDate, QmatTblLastYearToTblVolunteers.StopDate, QmatTblLastYearToTblVolunteers.DateOfBirth, TblVolEd.Course, TblVolEd.[Completion Date], TblVolEd.Time
FROM QmatTblLastYearToTblVolunteers INNER JOIN TblVolEd ON QmatTblLastYearToTblVolunteers.[Badge] = TblVolEd.[Badge Nbr];

Any thoughts.

[Micron]

I'm not trying to replace "tblVolunteers"

I'd say you are. The first name is the copy name, the next name is the source name, so you're saying "copy TblLastYear as TblVolunteers". As for the latest question, there's no way I could figure that out just by reading a novel of sql. Usually when queries don't perform as expected, I copy the original and remove fields/tables from the copy until records appear. Then by the process of inclusion, attempt to narrow down the problem until it breaks again. It could be a join, criteria, missing table required for the search - many things. 2 suggestions I'd make
1) use code tags with indentation for more than a few lines of code or sql. Makes it easier to read and avoids the automatic insertion of spaces here at 50 characters of unbroken text

2) maybe research table aliasing so you can shorten your sql. Would help you and others who have to read it. It would look something like

SELECT T1.Badge, T1.FirstName, T1.LastName, T1.Title, T1.StatusCode, T1.TypeCode, T1.KindCode, T1.Street1, T1.Street2, T1.City, T1.State, T1.Zip, T1.HomePhone, 
T1.CellPhone, T1.Email, T1.LifeHours, T1.YTDHours, T1.StartDate, T1.StopDate, T1.DateOfBirth, TblVolEd.Course, TblVolEd.[Completion Date], TblVolEd.Time
FROM T1 AS QmatTblLastYearToTblVolunteers INNER JOIN TblVolEd ON T1.[Badge] = TblVolEd.[Badge Nbr];