Office中国论坛/Access中国论坛

标题: 如何修改表的字段名---vba [打印本页]

作者: magicren 时间: 2003-12-17 20:09
标题: 如何修改表的字段名---vba
如何成批量的用VBA来修改表的字段名，如全成改成大写母。
大侠们有什么方法，谢谢了。

作者: magicren 时间: 2003-12-17 22:03
??

作者: duzili 时间: 2003-12-18 05:17
On Error Resume Next

Dim i As Integer '定义循环变量
For i = 0 To CurrentDb.TableDefs.Count - 1 '从当前数据库第一个表开始
If CurrentDb.TableDefs(i).Attributes = 0 Then '如果不是系统表则改名
DoCmd.Rename UCase(CurrentDb.TableDefs(i).Name), acTable, CurrentDb.TableDefs(i).Name 'ucase函数是大写转换函数
End If
Next i

作者: sea.er 时间: 2003-12-18 05:42
？

作者: duzili 时间: 2003-12-18 09:23
SORY,搞错了，没有看清楚，以为是改表名呢！

作者: 竹笛 时间: 2003-12-18 16:14
举一反三：
CurrentDb.TableDefs("tblName").Fields("OldFieldName").Name="NewFieldName"

作者: magicren 时间: 2003-12-18 17:32
谢了。。。。。

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

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