在表中插入计算字段作为一个字符串VBA - MS Access

Question

我需要打开一个表（不匹配）;创建一个新字段（ID）;使用现有字段创建一个新的唯一字符串（赫兹）;然后，最后，将这个新字符串插回到表格的新字段中。我被卡住了，因为我是新人。任何微调前锋将不胜感激。

Dim db As DAO.Database 
Dim tdf As DAO.TableDef 
Dim fld As DAO.Field 
Dim Hertz As String 
Dim rst As DAO.Recordset 

Set db = CurrentDb() 
Set tdf = db.TableDefs("Unmatched") 
Set fld = tdf.CreateField("ID") 
Set rst = db.OpenRecordset("Unmatched", dbOpenTable) 

Do Until rst.EOF 
hertz = rst![Accounting Document Item] & Mid(rst![JE Line Description], 20, 2) & Round(Abs(rst![Transaction Amount]), 0) 

Debug.Print hertz 'immediate window check 
---> DoCmd.RunSQL "?!?!?" 
rst.MoveNext 
Loop 

Application.RefreshDatabaseWindow 

Set fld = Nothing 
Set tdf = Nothing 
Set db = Nothing 
End Sub 

Answer 1

Dim db As DAO.Database 
Dim tdf As DAO.TableDef 
Dim fld As DAO.Field 
Dim Hertz As String 
Dim rst As DAO.Recordset 

Set db = CurrentDb() 
Set tdf = db.TableDefs("Unmatched") 
Set fld = tdf.CreateField("ID", dbText, 255) 
tdf.Fields.Append fld 

Set rst = db.OpenRecordset("Unmatched") 

Do Until rst.EOF 
    Hertz = rst![Accounting Document Item] & Mid(rst![JE Line Description], 20, 2) & Round(Abs(rst![Transaction Amount]), 0) 
    Debug.Print Hertz 
    rst.Edit 
    rst!ID = Hertz 
    rst.Update 
    rst.MoveNext 
Loop 

rst.Close 
Set rst = Nothing 
Set db = Nothing 

这是我会怎么做的代码。如果您不需要动态创建字段，则更新查询会更容易。