使用vba/macro重命名microsoft访问中的表

Question

嗨伙计们我有一个包含24个表的ms访问数据库,我需要每天重命名这些表

从

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