Create a table with the current date as part of the name

[travsab]

hi, every month i have to back up the previous months tables by adding the month to the name..ie: customer table 08012008 ... i am doing this manulaly... is there any code that can do this for me? thanks! sabrina

 

[jtseltmann]

An easy way to copy a table is to use :

DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT * INTO newtablename FROM oldtablename WHERE 1=2"
DoCmd.SetWarnings True

This will copy the table dict to a new tablename of your choice without data. REmove out the where 1=2 to copy data too.

 

[jtseltmann]

Sorry forgot to add the tablename portion...you could use the following:

strNewtablename = Replace(Date(),"/","")

 

[SeeThru]

If you wanted a reverse order for the date, you can use datepart....

strNewtablename = datepart("yyyy",date()) & datepart("m",date())& datepart("d",date())


SeeThru
Synergy Connections Ltd - Telemarketing Services

 

[travsab]

are you replacing the name of the table with the date? i want to make the date part of the table name for a backup version. thanks sabrina

 

[jtseltmann]

Sabrina,
I'm not sure what you are asking for...you can concatenate the old table name with the current date to get the "new" table name.

strNewtablename = "OLDTABLENAME" & Replace(Date(),"/","")

If the table name was "MYTABLE" you would get:

strNewtablename = "MYTABLE10102008