How can I be prompted for to name o copied table

[ooch1]

Hello,

I have been looking into creating an archive db that copies and ouputs the table into a new dataase.

What i would like to happen is to be prompted to re-name the table so i can manually date stamp it.

Does anyone know of any quick ways of doing this, as the copyobject and renaming functions either sets the new name as specified, or keeps the original one. Neither of these 2 combinations fulfill my requirements.

OOch

 

[JerryKlmns]

ooch1

DoCmd.CopyObject destinationdatabase, InputBox("Enter name", "Copied Table Name"), acTable, strOldTableName

Or if you want an auto timestamp

DoCmd.CopyObject destinationdatabase, "Copied" & format(Date, "yyymmdd_hhmm"), acTable, strOldTableName

 

[JerryKlmns]

[red]Correction[/red]

format(Date, "yyyymmdd")