VBA DoCmd.TransferText。在访问表中再添加一个字段

Question

我正在使用DoCmd.TransferText从文本文件转移到访问数据库表。对于在我的访问数据库表中创建的每个记录，除了文本文件行之外，我想为每个记录添加一个字段，但对于DoCmd，它似乎是一个约束。有什么方法可以做到吗？

Answer 1

您可以将文本文件导入到临时表中 运行make table查询或将表查询附加到已完成的表中。在查询中，通过查询设计中的计算添加所需的字段：

Myfield：Null或MyField：IIF（SomeOtherField =“M”，...）等。然后保存查询。

在您的VBA中（假设“StagingTable”是您导入文件的位置 AppendStagingTableToWorkTable是你的appendquery：

DoCmd.TransferText acImportFixed, "My Import Spec", "StagingTable", _
    "C:\TextFile.txt", False
DoCmd.OpenQuery "AppendStagingTableToWorkTable"