Access を使用してテーブルを反復処理し、関連情報を見つけてマスター テーブルにまとめています。
両方のレコードセットをロードし、rsImport (ローカル <1000 行テーブル) の反復処理を開始し、rsImport 行ごとに、rsRecords の UniqueRef に一致する行があるかどうかを確認し、一致する場合は更新または追加します。存在しません。
F8 キーを押して完全なコードをステップ実行すると、rsRecords.findfirst が指定されたときに実際に一時停止します。DateofAction の部分を削除すると高速化するので、日付の関係です。
何か案は？
私が使う：
Dim rsImport As DAO.Recordset, rsRecords As DAO.Recordset
Set rsImport = CurrentDb().OpenRecordset("SELECT * from tblFeedbackImport", dbOpenDynaset)
rsImport.MoveLast
rsImport.MoveFirst
Set rsRecords = CurrentDb().OpenRecordset("SELECT * from dbo_tblFeedbackRecords", dbOpenDynaset, dbSeeChanges)
rsRecords.MoveLast
rsRecords.MoveFirst
Do While rsImport.EOF = False
rsRecords.FindFirst "UniqueRef='" & Trim(rsImport!UniqueRef) & "' AND DateofAction=#" & Format(rsImport!DateofAction, "m-d-yy") & "#"
rsImport.MoveNext
Loop
2 つの列 (UNiqueRef と DateOfAction) に基づいて PrimaryIndex (Clustered) を作成しました。