VBA 액세스 필드 이름을 레코드로 사용

Question

해결 방법을 모르는 코딩 문제가 있습니다. 같은 데이터베이스에 다른 테이블의 필드 이름을 레코드로 저장하려고합니다.

내가 당신에게 예를 줄 것이다 :

표를 What I have

표 2 What I want

그래서 나는 같은 필드 이름을 기록 할 필요가 표 1은 외부 소스에서 업데이트 (매주) VBA 언어를 사용하여 두 번째 테이블에 기록하십시오. 가능한지 아는 사람 있습니까?

당신은 최선의 방법이 아닙니다과의 사용을 필요로하면 필드 이름으로 예약어 Date을 사용했습니다이

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 

주처럼 뭔가를 할 수

Answer 1

사전에 감사합니다 쿼리에서 대괄호.