Move or Copy a table to another database

[Harley Guy]

First off, let me say thanks to everyone in this forum...you folks have helped me out a lot!

I am doing server audits for my company and I need to archive each audit that gets completed.



I have code written to copy the current audit table to another name in the same database but I would like to be able to copy it to another database while still being able to rename.

Here is the coding I have so far:

Public Function CopyTable_Click()
On Error GoTo Err_ErrorHandler
DoCmd.CopyObject , InputBox("Please Enter New Table Name"), acTable, "Server List"
MsgBox "Table successfully copied.", vbInformation
Exit_ErrorHandler:
strTable = vbNullString
Exit Function
Err_ErrorHandler:
MsgBox Err.Description, vbExclamation, "Error #" & Err.Number
Resume Exit_ErrorHandler
End Function

If it's at all possible, where would I put the server path of the renamed object?

Thanks!

[RuralGuy]

It is the first parameter of the CopyObject command and you are currently skipping it:
expression.CopyObject(DestinationDatabase, NewName, SourceObjectType, SourceObjectName)

[Harley Guy]

So I would place the new parameter in this section?

DoCmd.CopyObject , InputBox("Please Enter New Table Name"), acTable, "Server List"
to
DoCmd.expressionCopyObject(server path where destination database resides , InputBox("Please Enter New Table Name"), acTable, "Server List"

When I do that, I get a compile error starting at the path of server
(\\Itdrenm406\operational_services\Data Center Operations\ECC Server Audit & Inventory\Test DB's.Archived Audit Results.mdb)

[RuralGuy]

Try:
Dim ServerPath As String
ServerPath = "\\Itdrenm406\operational_services\Data Center Operations\ECC Server Audit & Inventory\Test DB's.Archived Audit Results.mdb"
DoCmd.CopyObject ServerPath, InputBox("Please Enter New Table Name"), acTable, "Server List"

[Harley Guy]

That did the trick! Thank you sir!

[RuralGuy]

That's great! Are you ready to follow the link in my sig and mark this thread as Solved?

[Harley Guy]

Marked Solved...Thanks!

[RuralGuy]

Glad to help. Another satisfied Forum member added to the list.