DBのTable フィールド名をRead & フィールド名を変数にしてDataWrite

AccessVBA　備忘録

Sub TEST01()

Dim Db As Database
Dim tdf As TableDef
Dim tbl As Recordset
Dim fld As Field
Dim i As Integer
Dim intCnt As Integer
Dim strFields(50) As String
Dim strTarget As String
Dim strDummy As String


intCnt = 0
strTarget = "T_印刷前"

Set Db = CurrentDb
Set tdf = Db.TableDefs("T_印刷前") ' Q_T_検査予定印刷wkのクロス集計

For Each fld In tdf.Fields
MsgBox fld.Name ' ... Check Code Delete OK
intCnt = intCnt + 1
strFields(intCnt) = fld.Name
Next
Call Table_Open3

Set tbl = Db.OpenRecordset("T_印刷前", DB_OPEN_DYNASET)
tbl.Edit
tbl(strFields(1)) = strFields(1) ' ... tbl!変数 ではなく」tbl(変数)を使用
tbl.Update
Call Table_Close
End Sub