Sub ReSetFiledsName(Target As String, Source As String)
    
   'Target与Source两表必须字段顺序一样,结构相同
    Dim i      As Byte

    With CurrentDb
        For i = 0 To .TableDefs(Source).Fields.Count - 1
            .TableDefs(Target).Fields(i).Name = .TableDefs(Source).Fields(i).Name
        Next
    End With

End Sub


Sub a()
    ReSetFiledsName "要修改的表名", "参照表名"
End Sub