난 24 개 테이블과 MS 액세스 데이터베이스가 VBA/매크로

Question

인사들 를 사용하여 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