項目が一致したフィールドを追加
インポートしたデータを項目名が一致したフィールドを作業テーブルに追加クエリしたい。 ご回答ありがとうございます。是非教えてください。
・インポートは先頭行をフィールド名として使ってません。
項目名_PP（２０個）にある項目名とインポートした一時テーブルにある項目と一致したフィールドを作業テーブルに追加したいのですが取得した20フィールドを作業テーブルに追加をどうやっていいかわかりません。
作業テーブルも20項目あるのですが・・ご教授お願いします。
Set db = CurrentDb()
Dim rs As DAO.Recordset
Dim rstop As DAO.Recordset
Dim SQL As String
Dim SQLTop As String
Dim iCntTop As Integer
Dim sERRTXT As String
Dim bFlg As Boolean
Dim sSQLNM As String
SQL = "項目名_PP"
SQLTop = "一時テーブル"
If F_RecordsetOpen(SQLTop, rstop, dbOpenSnapshot, dbReadOnly) Then
If F_RecordsetOpen(SQL, rs, dbOpenSnapshot, dbReadOnly) Then
Do Until rs.EOF
For iCntTop = 0 To 254
sSQLNM = ""
'項目名が一致したら(=必要項目)ループを抜ける
If rstop.Fields(iCntTop) = rs![項目名] Then
sSQLNM = rstop.Fields(iCntTop).Name
Debug.Print sSQLNM
Exit For
End If
Next iCntTop
If Trim(sSQLNM) <> "" Then
' SQL = " INSERT INTO 作業テーブル
' 'sSQLNMでループで抜けたフィールドを追加作業テーブルに追加したいのですが・・・
Call F_ExecuteSQL(SQL)
End If
rs.MoveNext
Loop
End If
Call S_RecordsetClose(rs)
End If
Call S_RecordsetClose(rstop)
End Sub
お礼
返事遅くなってすいません 動作しました、ありがとうございます