Rename tables in Microsoft Access using vba / macro

Question

Hi guys I have an ms access database with 24 tables, I need to rename tables every day

from

table 1 --> table 1backup 

any ideas would be appreciated

it is possible with VBA

Answer 1

You can:

 Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If Left(tdf.Name, 4) <> "MSys" Then tdf.Name = tdf.Name & "_backup" End If Next