Доступ к VBA Помещение имени поля в качестве записи

Question

У меня есть немного проблема с кодированием, которую я не знаю, как решить. Я хочу поместить в таблицу как запись имя поля другой таблицы в той же базе данных.

Я дам вам пример:

Table1 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 как имя_поль, которая не является передовой практикой и требует использования квадратные скобки в запросе.