重命名使用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