Ms access VBA DoCmd.TransferText。在access表中再添加一个字段_Ms Access_Vba

Ms access VBA DoCmd.TransferText。在access表中再添加一个字段

ms-access vba

Ms access VBA DoCmd.TransferText。在access表中再添加一个字段,ms-access,vba,Ms Access,Vba,我正在使用DoCmd.TransferText从文本文件传输到access DB表。只是对于在access DB表中创建的每个记录，除了文本文件行之外，我想为每个记录添加一个字段，但对于DoCmd来说，这似乎是一个约束。有什么方法可以这样做吗？然后您可以将文本文件导入临时表在完成的表中运行make table查询或Append table查询。在查询中，通过查询设计中的计算添加所需字段： Myfield:Null或Myfield:IIF（SomeOtherField=“M”，…）等。然后保存查

我正在使用DoCmd.TransferText从文本文件传输到access DB表。只是对于在access DB表中创建的每个记录，除了文本文件行之外，我想为每个记录添加一个字段，但对于DoCmd来说，这似乎是一个约束。有什么方法可以这样做吗？

然后您可以将文本文件导入临时表在完成的表中运行make table查询或Append 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"