access vbaでレコードを追加する方法

ACCESSのVBAでDAOを使用してレコードを追加するには以下のようにレコードセットに対するAddNewコマンドで行うことができます。

この例では引数pCd,pNameを、それぞれレコードセットの変数とし、新たなレコードを追加しています。

Sub sample(pCd As Integer, pName As String)
  Dim db As DAO.Database
  Set db = CurrentDb

  Dim rs As DAO.Recordset
  Set rs = db.OpenRecordset(“T01Prefecture”)

  rs.AddNew

‘引数とし代入されたpCd,pNameをフィールドPREF_CD,PREF_NAMEにセットします。
    rs!PREF_CD = pCd
    rs!PREF_NAME = pName

  rs.Update

  rs.Close
  Set rs = Nothing
  db.Close
  Set db = Nothing
  
  Debug.Print “レコードを追加しました。”
  dispData
End Sub