如何修改表的字段名---vba

magicren · 发表于 2003-12-17 20:09:00

如何成批量的用VBA来修改表的字段名，如全成改成大写母。
大侠们有什么方法，谢谢了。

magicren · 发表于 2003-12-17 22:03:00

duzili · 发表于 2003-12-18 05:17:00

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:00

duzili · 发表于 2003-12-18 09:23:00

SORY,搞错了，没有看清楚，以为是改表名呢！

竹笛 · 发表于 2003-12-18 16:14:00

举一反三：
CurrentDb.TableDefs("tblName").Fields("OldFieldName").Name="NewFieldName"

magicren · 发表于 2003-12-18 17:32:00

谢了。。。。。

william_yao · 发表于 2012-5-15 14:10:58

学习了！！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[宏/菜单/工具栏] 如何修改表的字段名---vba

群介绍
主题无相 (随机显示版	同地区群块其他地区)