将 TXT 导入 Access 时添加字段

问题描述

我正在尝试在导入过程中将 3 个附加字段及其数据添加到 .txt 文件中。但我不知道如何做到这一点。这些字段之一将包含在 Combo5 组合框中引入的日期。另外两个，一个包含“Checked”，另一个包含“ArticleN5”。

谁能提供有关如何实现这一目标的任何说明？

先谢谢大家，
希望你们都平安。

这是我目前所拥有的：

Private Sub Command0_Click()  

Dim Dates As String  
Dim Path As String  

Dates = Format(Me.Combo5,"yymmdd")  
Path = "C:\Users\alex\Desktop\CGD\20200117\UCP" & Dates & "A_CGD.txt"

DoCmd.TransferText acImportFixed,"UcpyYMMDDA_CGD_Specs","teste",PATH,True

End Sub

解决方法

字段是否必须添加到 TXT 文件本身，或文件导入到的表中？如果您只需要将信息添加到表中的字段中，您可以在导入 TXT 后将表作为记录集打开并添加其他数据。

示例：

Dim rsData as DAO.Recordset
Set rsData = currentDB.openrecordset("TableName",dbtable)
rsData.Movefirst
Do While not rsdata.eof
with rsdata
  .edit
  .field("FieldName") = "Checked"
  .field("FieldName") = comboboxvalue
  .field("FieldName") = value
  .update
end with
rsData.MoveNext

rsdata.close

这应该会让你接近