AccessVBAについてお聞きしたいです。

AccessVBAについてお聞きしたいです。 上手くレコードが追加されているか、確認したいため、テーブルのレコードか1レコードずつ別テーブルに追加するようにしたいのですがどのように記述したらよいでしょうか。 確認する方法はコード画面のブレークポイントで行います。 aテーブルのid列をbテーブルのid列に、aテーブルのname列をbテーブルのstudent列に追加したいです。 aテーブル id/name/barthday/place 1/太郎/2月4日/東京 2/次郎/3月23日/大阪 3/三郎/6月11日/愛知 bテーブル id/student よろしくお願い致します。

ベストアンサー

0

単純に書くとこのような処理になります。 要件のみ簡単に実装したため、エラー対策の処理などは実装していません。 aテーブルに1件もデータが存在しない bテーブルに既に同じ主キーで登録済みの場合はエラーとなります。 Private Sub コマンド1_Click() Dim rs1 As Recordset Dim rs2 As Recordset Set rs1 = CurrentDb.OpenRecordset("aテーブル") Set rs2 = CurrentDb.OpenRecordset("bテーブル") rs1.MoveFirst Do While rs1.EOF = False rs2.AddNew rs2!id = rs1!id rs2!student = rs1!Name rs1.MoveNext rs2.Update Loop rs1.Close: Set rs1 = Nothing rs2.Close: Set rs2 = Nothing End Sub

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:9/24 19:58