ADO_レコードの編集
レコードの編集はカレントレコードについて実行されます。そこでまずカレントレコードに移る必要があります。それから編集命令を出します。
使用例
編集するレコードを指定するのにrs.Find で探します。見つかった時はメッセージボックスで「Yes」か「No」
ボタンで選択します。「Yes」で編集が実行されます。編集はUpdateメソッドを使います。
ここでは番号11の「金山 大輔」を「神奈川 大輔」に編集します。
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!氏名 = "神奈川 大輔"
rs!フリガナ = "カナガワ ダイスケ"
rs!入会年月日 = "10/1/1999"
rs.Update
Case vbNo
End Select
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
（編集前）
（メッセージ処理）
編集後
（この項終わり）