mysql - 访问VBA将字段名称放入记录中

我遇到了一些编码问题，我不知道该如何解决。我想将表中的另一个数据库的字段名作为记录放入表中。

我举一个例子：

表格1
What I have

表2
What I want

表1每周从外部来源更新一次，因此我需要使用VBA语言将字段名称记录为第二个表中的记录。有人知道这是否可能吗？

先感谢您

最佳答案

你可以做这样的事情

Dim db As Database
Dim fld As Field
Dim sql As String
Set db = CurrentDb

For Each fld In db.TableDefs("YourTable").Fields

    sql = "Insert into YourSummaryTable([Date], Hours) select '" & fld.Name & "', sum([" & fld.Name & "]) as s from YourTable"
    DoCmd.RunSQL sql


Next fld

请注意，您已经使用了保留字Date作为字段名，这不是最佳做法，并且要求在查询中使用方括号。