cambiar el nombre de tablas en Microsoft Access con VBA/macro

Question

hola chicos tengo una base de datos MS Access con 24 mesas, i necesidad de cambiar el nombre de las tablas de todos los días

de

table 1 --> table 1backup 

cualquier idea será apreciado

es factible que con VBA

Answer 1

puede:

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