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

DAOを用いてカレントレコードに文字列を追加する方法 : VBAのTips解説



Updateメソッド

Updateメソッドとは、カレントレコードに行ったすべての変更を保存するメソッドです。レコードセット内でレコードを変更した場合、このメソッドを用いて保存します。なお、レコードを編集するEditメソッドを使用せずに、このメソッドを用いるとエラーになります。DAO、ADOともに使用できます。

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

関連項目

  1. CurrentDb(DAO)
  2. OpenRecordsetメソッド(DAO)
  3. EOFプロパティ(DAO)
  4. MoveNext(DAO)
  5. Connectionオブジェクト(ADO)
  6. Openメソッド(ADO)

事例 )「取引先」フィールドのレコードに文字列"御中"を追加する

DAOで、「取引先台帳」テーブルの「取引先」フィールドのレコードに文字列"御中"を追加します。

  1. テーブルを作成します。
  2. ID、取引先、住所フィールドを作成します。
  3. 連結フォームを作成します。
  4. ID、取引先、住所テキストボックスを作成します。
  5. 実行するコマンドボタンを作成します。

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

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

Private Sub 実行_Click()

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

   Set db = CurrentDb
   Set rs = db.OpenRecordset("取引先台帳", dbOpenTable)

   Do Until rs.EOF = True
      rs.Edit '--- A
      rs!取引先名 = rs!取引先名 & " 御中"
      rs.Update '--- B
      rs.MoveNext
   Loop

   Me.取引先名.Requery

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

End Sub
解説
  1. Editメソッドで編集可能に設定します。
  2. Updateメソッドで更新、保存します。

動作確認

  1. フォームをビューモードで開きます。

  1. [文字列の追加]ボタンをクリックします。
  2. 「取引先名」フィールドのレコードに"御中"が追加されます。

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


DAOを用いてカレントレコードに文字列を追加する方法 : VBAのTips解説


 

-Microsoft Access Club-

cPanel と PLESKをインストールした専用・共有レンタルサーバーを銀行振込でご提供中。契約書は一切不要です。
cPanel や PLESKをインストールした専用・共有レンタルサーバー
まずは1ヶ月から...。
日本国内の銀行振込がOK、契約書は不要です。