訪問VBA將字段的名稱作爲記錄

Question

我遇到了一些我不知道如何解決的編碼問題。我想在表中記錄同一數據庫中另一個表的字段名稱。

我給你舉個例子：

表1 What I have

表2 What I want

表1是從外部源每週更新，所以我需要記錄的字段名稱爲使用VBA語言記錄在第二個表中。有人知道是否有可能？

預先感謝您

Answer 1

你可以做這樣的事情

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作爲一個字段名，這是不是最好的做法，並要求使用查詢中的方括號。