Accessで、レコードのオートナンバーを除くフィールドを１行、複製（コピー）したくって、Google検索したのだけどなかなか出てこず、しかしやっと見つけた、黄金のソース・・・・。
[VBA] ADOの Clone と AddNew – その他(プログラミング) 解決済み| 【OKWAVE】
やりたかったのは、単純に、レコードのコピー。
フォームのボタンをクリックすると、コピーが作られ、Requeryすると、一番上に表示される、そんな感じの処理。
最初は、
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
Me.Requery
のようなコードでフォーム上のデータをコピペしていたのだが、非連結の検索用テキストボックスの扱いがうまくいかず、ペースト時にエラーになる。
非連結だからコピペしなくてもよいのだがなぜかコピー対象にされる（自分の環境の場合SQLServer上のテーブルのみで発生、mdbテーブルだと発生せず）。
そこはよくわからないけどAccessの仕様だろう。
レコードのクローンを用意して、そこからフィールドごとにループしてレコードを作ればよいかなとは想像してみたのだが、具体的にはどう作ればよいのか、わからず。
そんな中で、上記のコードを見つけた時の喜びやいかに。
にしても、解答者の、30246kiku さん、神だ、天使だ！ 感動だ。
