サブフォームのレコード削除
サブフォーム(帳票)のレコード削除をしたいのですが、レコードセクレタをクリックして選んだレコードではなく、テーブルの最初のレコードから順番に削除されてしまいます。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ret As Integer
'接続
Set cn = CurrentProject.Connection
'レコードセットを取得
Set rs = New ADODB.Recordset
rs.Open "T支店", cn, adOpenKeyset, adLockOptimistic
'削除
ret = MsgBox("表示中のレコードを削除しますか?", vbYesNo + vbQuestion, "削除")
Select Case ret
Case vbYes
rs.Delete
Me!sub支店.Form.Requery
Case vbNo
Exit Sub
End Select
'終了
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
WINDOWS98、ACCESS2000をしようしています。よろしくお願いします。
お礼
ありがとうございました。