データベースのテーブルから特定の条件のレコードを更新するには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