rename object

[slimjen]

All, using access 2010. I have some code to rename a table in my database. Partial Code:

TableDefs("tblMstr").Name = "tblMstr" & Format(Date, "yyyymmdd")

This works fine. But is there a way possible for code to look at the tbl properties of when it was created to use this date? I really need it to be dated so I know what date of the data was taken. Just a thought.

[ItsMe]

Here is a list of the TableDef members.
http://msdn.microsoft.com/EN-US/libr...ffice.15).aspx

Perhaps you can get the info needed using the LastUpdated property
http://msdn.microsoft.com/EN-US/libr...ffice.15).aspx

[slimjen]

I tried to us DateCreated but keep getting errors such as variable not defined or .datecreated without a with block. How do I format the date using DateCreated?

[ItsMe]

... .datecreated without a with block...

Post your code. It seems as though your are not instantiating your object and or using the correct syntax for the method.

[slimjen]

Ok: Here it is. It works without the DateCreated as expected.

Dim dbBackend As DAO.Database
Dim strBackendDatabase As String
  strBackendDatabase = "c:\TestFolder\Sampledb.accdb"
  Set dbBackend = OpenDatabase(strBackendDatabase)
dbBackend. TableDefs("tblMstr").Name = "tblMstr" & Format(Date,  &  DateCreated "yyyymmdd")
  dbBackend.Close
  Set dbBackend = Nothing

Thanks

[ItsMe]

Maybe

Format(dbBackend.TableDefs("tblMstr").DateCreated, "yyyymmdd")

[JoeM]

This works fine. But is there a way possible for code to look at the tbl properties of when it was created to use this date? I really need it to be dated so I know what date of the data was taken. Just a thought.

So, does this lead to multiple copies of similar tables in your database with different dates?
If so, I am not certain that is the best design.

I would probably try doing something like adding "Date" field to your table, and record the Date you want in each record.

[slimjen]

I tried this gave errors. I know it's not the best design but it will surfice for what the users wants for now.

[ItsMe]

Why don't you try splitting it up so you can see where it is not working

Dim dtMade as date
dim strName as string
dtMade = dbBackend.TableDefs("tblMstr").DateCreated
debug.print dtMade

strName = "tblMstr" & Format(dtMade, "yyyymmdd")
debug.print strName