Dim rs As New ADODB.Recordset. [顧客名] = Me.顧客名 rs.Update '-----'レコードセットを上書き/追加. 元レコードセットをレコード数分ループで回して、テーブルに追加する方法です。もっといい方法があるかもしれませんが・・・・ 条件として基となるレコードセットのフィールドと追加先のテーブルのフィールドが完全一致していなければなりません。 【Access】vbaでフォームからレコード追加しよう 【Access】VBAテーブルのデータを全部削除する方法; アクセスvbaでデータをエクセルにエクスポート! 【Access】Replace関数を使ってデータを置き換える方法; アクセスVBAテーブルとクエリをエクスポートしよう! Accessでレコードの操作をする際に、ある特定のフィールド情報を取得して出力する等、細かなデータ処理が必要な場合に、クエリによるデータ操作では限界があります。そこで、ADOと呼ばれるデータアクセス技術を利用することをお勧めします。 Dim cn As New ADODB.Connection. レコードの編集: テーブルやクエリのレコードに対して各種の編集を行う場合も、Recordsetとしてそれらを開いたあと、編集操作を行います。その際のポイントは次のようなものです。 追加・更新・削除などのレコード編集はそれぞれのメソッドを使う ACCESSのVBAでDAOを使用してレコードを追加するには以下のようにレコードセットに対するAddNewコマンドで行うことができます。 この例では引数pCd,pNameを、それぞれレコードセットの変数とし、新たなレコードを追加しています。 Sub sample(pCd As Integer, pName As ACCESS VBA --'-----'レコードセットを新規 ... rs.AddNew rs! ADOでAccessデータベースにデータを追加するには、それに対応する方法でレコードセットを開く必要があります。今回下の構文で実行しました。adLockOptimisticとはRecordset内ですべての動作ができ、Updateメソッドで保存する場合のみ、そのレコードをロックするという意味です。 フィールド名とタイプのユーザー入力を保存する 'temp'テーブル(テーブルは永続的ですが、レコードは一時的)が既にあるようです。それらのレコードのレコードセットを開き、レコードセットをループ …