任意のテーブルに値を挿入する

Access VBA

実際に挿入しているのはレコードセットオブジェクトのAddNewからUpdateまでが追加している部分。
もし配列などがあれば、配列の件数ForまたはWhileでループして挿入すると良いかもしれない。
そのときはnextしないといけなかったかなぁ…。私も覚えてませんｗｗｗ

Dim db As DAO.Database
Set db = CurrentDb

Dim rs As DAO.Recordset
Set rs = db.OpenRecordset([挿入したいテーブル名])

rs.AddNew
rs!フィールド1 = 値1
rs!フィールド2 = 値2
rs!フィールド3 = 値3
rs.Update

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing