ADO_レコードの削除
レコードの削除はカレントレコードについて実行されます。そこでまずカレントレコードに移る必要があります。それから削除命令を出します。
使用例
削除するレコードを指定するのにrs.Find で探します。見つかった時はメッセージボックスで「Yes」か「No」 ボタンで選択します。「Yes」で削除が実行されます。
Public Sub adoレコード削除()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ret As Integer
Set cn = CurrentProject.Connection
rs.Open "T_名簿", cn, adOpenKeyset, adLockOptimistic
'検索
rs.Find "氏名 = '正門 恵子'"
If rs.EOF Then
MsgBox "見つかりませんでした"
Else
ret = MsgBox(rs!番号 & " " & rs!氏名 & vbCrLf & "削除しますか", vbYesNo + vbQuestion, "削除")
Select Case ret
Case vbYes
rs.Delete
Case vbNo
End Select
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
（削除前）
（メッセージ処理）
削除後
（この項終わり）