怎样批量修改表字段名?

ynjxw

怎样修改一个表的字段名称,所有字段名称都要改成原名称的第5位起后面的内容.

红尘如烟

新建一个模块，把下面这段代码拷贝进去，然后在这段代码中间点一下鼠标（把光标移进去），然后按F5运行即可

1. Sub test()
   
2.     Dim fld As Field
   
3.     Dim tdf As TableDef
   
4.     Dim strTableName As String
   
5.     strTableName = "表1"
   
6.    
   
7.     For Each tdf In CurrentDb.TableDefs
   
8.         If tdf.Name = strTableName Then
   
9.             For Each fld In tdf.Fields
   
10.                 fld.Name = Mid$(fld.Name, 5)
    
11.             Next
    
12.             Exit Sub
    
13.         End If
    
14.     Next
    
15. 
    
16. End Sub

复制代码

ynjxw

谢谢,谢谢!太感谢红尘如烟了,这个问题困扰我好几天了!!谢谢,谢谢!

william_yao

学习了！！