データベースのテーブルから特定の条件のレコードを更新するには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
ADOとは | レコードセットの作成(Open) | レコードセットの読み取り(Move) | レコードの検索(Find) | レコードセットの更新 | レコードの追加(AddNew) | レコードの削除(Delete) | レコードの抽出(Filter) | レコードの並び替え(Sort) | SQL文の実行