ms-access - 如何循环遍历记录集并根据记录集更新表字段值？

Question

我将类似的表导入到 MS Access 数据库中，以将它们组合成更大的数据集。大多数列的第一行是日期字段。在导入期间，当第一行成为字段名称时，其中一些日期保持日期“2018 年 1 月”，其中一些成为数字“44001”。我正在编写一个代码来引用存储为字段名称的任何数字并将它们转换为日期值（例如 44001 到 2018 年 1 月）。

Private Sub Command0_Click()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Dim CurrentHead As String
Dim UpdateHead As String

Set db = CurrentDb
Set tdf = db.TableDefs("PL_1")
Set rs = db.OpenRecordset("TableUpdates")

rs.MoveFirst

Do While Not rs.EOF
For Each fld In tdf
If fld.Name = CurrentHead Then
fld.Name = UpdateHead
End If
rs.MoveNext
Loop

db.Close
Set db = Nothing
Set fld = Nothing
Set tdf = Nothing

MsgBox "Changed"

End Sub

标签： ms-accessvba