Access VBA 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.Delete                                           ‘*3

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

End Sub

プログラムの説明

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

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

*3 Deleteを使用して検索したレコードを削除します。

ADOと同様に「Delete」を使用してレコードの削除を行います。
「Delete」使用時は「Update」を記述する必要はありません。「Delete」を実施するだけでレコードを完全に削除することが出来ます。