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」はセットで使用することを忘れないようにしましょう。