HOME > 即効テクニック > AccessVBA > データ操作 > Recordsetオブジェクト(DAO)でレコードを修正する

即効テクニック

データ操作

Recordsetオブジェクト(DAO)でレコードを修正する

(Access)
Recordsetオブジェクトでレコードを修正する場合は、EditメソッドとUpdateメソッドを使います。
サンプルプロシージャでは、「動物テーブル」のRecordsetオブジェクトを作成して、「動物名」フィールドの値を修正しています。
「動物名」フィールドの値が「ライオン」であった場合は、メッセージボックスに“ライオン(キケン!)”と表示されます。

Sub Sample()
    Dim rs As Recordset
          
    Set rs = CurrentDb.OpenRecordset("動物テーブル")
    
    rs.Edit
    rs!動物名 = rs!動物名 & "(キケン!)"
    rs.Update
    
    MsgBox rs!動物名
    
    rs.Close
    
End Sub

DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックします。