如何使用 Access VBA 获取列/字段名称答案

【问题标题】：How to Get the Column/Field Name Using Access VBA如何使用 Access VBA 获取列/字段名称
【发布时间】：2023-04-03 17:30:02
【问题描述】：

我已通过 RecordClone 将子表单的记录源复制到记录集。这个子表单源由一个查询（一些表）组成，这个查询的所有字段都被重命名，例如，id_document 到“ID 文档”，日期到“文档日期”。我需要的是获取这些新名称而不是原始名称。而不是 id_document，我想获取“ID 文档”。我试图将它们放入 property 或 fiels 集合中，但没有成功。如果你们中的任何人知道如何做到这一点，请帮助我。非常感谢您的帮助。

提前致谢。

P.S.：这是我在查询设计视图中重命名字段的方式： “身份证件”：id_document

【问题讨论】：

为什么需要新名称而不是实际表中的名称？
嗨，约翰尼。我将使用这些名称在 Excel 电子表格中创建列。我还将使用此记录集中的数据填充此电子表格。

标签： ms-access vba

【解决方案1】：

看看 Gord Thompson（这里的许多人都熟悉他的名字）的出色回答：

How to export a table in access to CSV with dot in field names through VBA?

这不完全是您正在做的事情（此人想从字段名称中删除“.”），但您正在做一些非常相似的事情。您可能可以从人行横道表中进行 DLookup 以确定该列的名称。

只需构建一个名为 tblCrosswalk 的新表，然后像这样填充它：

Old           New
id_document   ID Document
date          Document Date
etc...        etc...

然后，在构建 CSV 标题行部分，而不是那些“替换”功能，把这个：

s = DLookup("New", "tblCrosswalk", "Old = '" & fld.Name & "'")

【讨论】：

嗨，约翰尼。感谢您的快速回复。由于要更改大量屏幕并且由于这些列有时会被重命名，因此我需要通过代码执行此操作。我认为这是可能的。也许这些信息在属性或字段或属性集合中，但我不知道它到底在哪里。你怎么看？干杯。
如果您只是导出查询（使用新字段名称），不应该使用您创建的新名称导出吗？