Office中国论坛/Access中国论坛

标题: 怎样批量修改表字段名? [打印本页]

---

作者: ynjxw    时间: 2010-3-27 16:56
标题: 怎样批量修改表字段名?
怎样修改一个表的字段名称,所有字段名称都要改成原名称的第5位起后面的内容.

---

作者: 红尘如烟    时间: 2010-3-27 17:45
新建一个模块，把下面这段代码拷贝进去，然后在这段代码中间点一下鼠标（把光标移进去），然后按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    时间: 2010-3-28 13:54
谢谢,谢谢!太感谢红尘如烟了,这个问题困扰我好几天了!!谢谢,谢谢!

---

作者: william_yao    时间: 2012-5-15 13:10
学习了！！

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3