ms-access - 如何使用VBA/宏在Microsoft Access中重命名表？

Question

我有一个包含24个表的ms 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