VBA DoCmd.TransferText。在訪問表中添加一個字段

Question

我正在使用DoCmd.TransferText從文本文件傳輸到訪問數據庫表。對於在我的訪問數據庫表中創建的每條記錄，除了文本文件行外，我想爲每個記錄添加一個字段，但對於DoCmd，它似乎是一個約束。有什麼辦法可以做到嗎？

Answer 1

您可以將文本文件導入登臺表中，然後 在完成的表中運行make table query或追加表查詢。在查詢中，通過查詢設計中的計算添加所需的字段：

Myfield：Null或MyField：IIF（SomeOtherField =「M」，...）等。然後保存查詢。

在VBA（假設「StagingTable是你導入的文件和 AppendStagingTableToWorkTable是你appendquery：

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