Recordsetでレコードを修正する : Access

レコードを修正するには、EditメソッドとUpdateメソッドを使います。

修正するには初めに修正したいレコードに移動させておく必要があります。

最後の「Set Recordset = Nothing」は実行するべきかどうかいろいろ説がありますが、当方ではおまじないと思って実行するようにしています。




BackHome BackTipsへ Backメニューへ


■実行前のAccessテーブル
「製品ID」が5のレコードを編集します
製品マスター before



■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("M_製品マスター")
    rs.MoveLast
    rs.Edit
    rs("製品コード") = "0022"
    rs("製品名") = "サモタイト"
    rs("在庫数") = 1345
    rs("登録日") = "2008/07/21"
    rs.Update
    rs.Close
    Set rs = Nothing

End Sub

■ Access実行画面

最後のレコードのデータが変更されています
製品テーブル after



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft