抽出したデータを別のテーブルへ保存するには？ (ID:115891)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ソースは下記のようにしました。 Do Until recData.EOF With recHozon .AddNew .Fields!tCD = strMatter .Fields!tDay = Format(Date, "yyyy/mm/dd") .Fields!hinmei = recData!hinmei .Fields!suuryou= recData!suuryou .Fields!No = intCnt .Update .MoveNext End With intCnt = intCnt + 1 Loop コレだと強制終了しないと延々繰り返してしまいます。 宜しくお願いします。