Microsoft Access Club >VBAのTips解説 >このページ >次頁 < 前項  サイト内検索
 

DAOを用いてテーブルフィールドに新規レコードを追加する方法 : VBAのTips解説



AddNewメソッド

AddNewメソッドとは、カレントレコードのテーブルフィールドに新規レコードを追加するメソッドです。なお、AddNewメソッドを実行しUpdateメソッドで更新保存を行わなければ追加したレコードは破棄されます。DAO、ADOともに使用できます。

  • 書式
recordset.AddNew
  • 引数
引数 意味 指定
Recordset 開いているRecordsetオブジェクト変数を指定します 省略不可

関連項目

  1. CurrentDb(DAO)
  2. OpenRecordsetメソッド(DAO)
  3. Updateメソッド(DAO、ADO)
  4. AddNewメソッド(DAO、ADO)
  5. Connectionオブジェクト(ADO)
  6. Openメソッド(ADO)

事例 )DAOを用いて、「顧客名」フィールドに新規レコードを追加する

DAOを用いて、「顧客名」フィールドに新規レコードを追加します。

  1. 非連結フォームを作成します。
  2. 実行するコマンドボタンを作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを以下のように作成します。

Private Sub 実行_Click()

   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim varRet As Variant

   Set db = CurrentDb
   Set rs = db.OpenRecordset("新規顧客リスト", dbOpenTable)

   varRet = InputBox("追加する顧客名を入力して下さい。")

   If varRet <> "" Then
      rs.AddNew '--- A
      rs!顧客名 = varRet
      rs.Update '--- B
      MsgBox "新規顧客 「" & varRet & "」を追加しました。"
   Else
      MsgBox "顧客名が未入力です。"
   End If

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

End Sub
解説
  1. AddNewメソッドで新規レコードの追加設定を行います。
  2. Updateメソッドで新規レコードを保存します。

動作確認

  1. フォームをビューモードで開きます。
  2. [顧客の追加] ボタンをクリックします。

  1. Inputboxボックスに顧客名を入力します。

  1. 新規レコードが追加されます。

ページの先頭へ 前ページへ戻る


DAOを用いてテーブルフィールドに新規レコードを追加する方法 : VBAのTips解説


 

-Microsoft Access Club-

cPanel あるいは PLESKコントロールパネルをインストールした専用レンタルサーバのディスカウントプランを期間限定で公開しています。
cPanel・PLESKコントロールパネルを備えた専用レンタルサーバ....。