スポンサーリンク
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」を実施するだけでレコードを完全に削除することが出来ます。
スポンサーリンク
スポンサーリンク