データベース操作(DAO)

Access VBA DAOを使用したレコード更新

DAOを使用したレコード更新

DAOを使用したレコードの更新プログラム例を説明します。

プログラム例

Private Sub コマンド0_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset(“T_社員マスタ2013”, dbOpenDynaset)    ‘*1

RS.FindFirst “名前= ‘たなか'”                     ‘*2

RS.Edit                                                     ‘*3

RS!性別 = “女”                                         ‘*4

RS.Update                                                 ‘*5

RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing

End Sub

プログラムの説明

*1 テーブル「T_社員マスタ2013」を開きます

*2 FindFirstを使用して更新したいレコードを検索します。

*3 Editを使用してレコードを更新します。

*4 検索したレコードの性別フィールドを編集します。

*5 Updateを使用してテーブルをアップデートします。

DAOでのレコード更新は「Edit」を使用します。「Edit」はADOでは必要ありません。
「Edit」で書き換えを実施しても「Update」を実施しなければレコードは更新されませんので、「Edit」と「Update」はセットで使用することを忘れないようにしましょう。