vba - 重命名访问vba中的字段

Question

我需要重命名 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”。

标签： vbams-access

Answer 1

您必须TableDefs在Database对象中使用。

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