umbenennen Tabellen in Microsoft Access mit VBA/Makro

Question

hallo Jungs Ich habe eine MS Access-Datenbank mit 24 Tabellen, ich brauche die Tabellen

von

table 1 --> table 1backup 

irgendwelche Ideen jeden Tag werden umbenennen geschätzt

ist es mit VBA machbar

Answer 1

Sie können:

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