Access VBA 入門講座

Homeレコードの更新レコードの更新 Update

データベースのテーブルから特定の条件のレコードを更新するにはUpdateメソッドを使用します。


レコードセット変数!フィールド名=値

レコードセット変数.Update
						

Updateメソッドを使用する場合、Openメソッドでレコードセットを作成する際に引数としてadLockOptimisticを指定して更新用にレコードセットを作成する必要があります。


Dim レコードセット変数 As New ADODB.Recordset

レコードセット変数.Open テーブル名, _ 

	CurrentProject.Connection,,adLockOptimistic

						

以下の例では名簿テーブルよりOpenメソッドによりレコードセットを作成して、Updateメソッドにより姓が"鈴木"であるレコードを全て"佐藤"に更新して、Closeメソッドで閉じています。


Sub Sample()

    Dim rs As New ADODB.Recordset

    rs.Open "名簿", CurrentProject.Connection,,adLockOptimistic

    rs.Find "姓='鈴木'", adSearchForward

    Do While rs!姓 = "鈴木"

        rs!姓 ="佐藤"
        
        rs.Update

    Loop

    rs.Close

End Sub