重命名使用VBA /宏

Question

嗨，大家好 我有24桌MS Access数据库在Microsoft Access的表，我需要每天重新命名表从

table 1 --> table 1backup 

任何想法

可以理解的

是可行与VBA

Answer 1

您可以：

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