我需要重命名 VBA 访问代码中的字段名称以实现自动化,以便运行得更快。我正在使用一个按钮来移动一些数据,因此需要更改列名称来清理数据。我正在使用表格,但我需要更改的表格根本没有链接到表格......
我尝试使用一些 VBA 代码,但不断收到变量未定义错误,例如 tblFieldBookwslk50 未定义
Set db = CurrentDb
Set rst = db.OpenRecordset("tblFieldBookwslk50", dbOpenDynaset)
'rename field names
rst.TableDefs(tblFieldBookwslk50).Fields("GDU_slk_50_Daily HU").Name =
"GDU_slk50"
rst.TableDefs(tblFieldBookwslk50).Fields("tblFieldBookwshd50_Daily HU").Name = "GDU_shd50"
db.Close
rst.Close
我希望字段名称为“GDU_shd50”,而不是“tblFieldBookwshd50_Daily HU”。
你必须使用TableDefs
in the Database
object.
Set db = CurrentDb
'rename field names
db.TableDefs("tblFieldBookwslk50").Fields("GDU_slk_50_Daily HU").Name = "GDU_slk50"
db.TableDefs("tblFieldBookwslk50").Fields("tblFieldBookwshd50_Daily HU").Name = "GDU_shd50"
db.Close
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)