Renaming a file 2

[moremon]

I would like to create a form that would copy and existing (sample) table and renames it. The new name being the current date.

Thanks

 

[Vika]

This is what you want to do

1) Create a Form with a text box (txtTable) where user can type in Table Name he wants to copy
2) Put a command button on the form
3) On Click event of thye Command Button put this code

DoCmd.CopyObject , date, acTable, txtTable


That should do it.
Good luck!

 

[kerrigirrl]

if you have the current date on the form (txtTodayDt), you could take that txtbox and put it in the right format (in my case):
txtCharDt = Format(txtTodayDt, "mmddyy&quot

tblToday = "tbl" + txtCharDt

DoCmd.CopyObject , "tblToday", acTable, tblSample

where tblToday is the new name and tblSample is the table to be copied.

hope this helps

 

[Vika]

You don't need to create another text box to get the current date, like kerrigirrl says. You get the date with the Date() function at the same time as you copy the object.

The only thing you might want to do is Format you current date, in case you don't know the system regional settings

DoCmd.CopyObject , Format(date,"mm/dd/yy&quot, acTable, txtTable