Recordsetでレコードを追加する ： Access

レコードを追加するには、AddNewメソッドを使います。

追加したレコードはテーブルの最後に登録されます。

最後の「Set Recordset = Nothing」は実行するべきかどうかいろいろ説がありますが、当方ではおまじないと思って実行するようにしています。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("M_製品マスター")
    rs.AddNew
    rs("製品コード") = "0012"
    rs("製品名") = "サーモタイト"
    rs("在庫数") = 12345
    rs("登録日") = "2008/07/19"
    rs.Update
    rs.Close
    Set rs = Nothing

End Sub

■ Access実行画面

最後にレコードが追加されています