サブフォームのレコード削除

質問

サブフォーム（帳票）のレコード削除をしたいのですが、レコードセクレタをクリックして選んだレコードではなく、テーブルの最初のレコードから順番に削除されてしまいます。

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

ＷＩＮＤＯＷＳ９８、ＡＣＣＥＳＳ２０００をしようしています。よろしくお願いします。

回答No.1

TMINET · ベストアンサー

レコードセットのポインタはデフォルトで先頭を位置してるから
rs.Delete
だと先頭行が削除されるのだと思います。
サブフォームとレコードセットは別々ですから。
サブフォームで選択したものを削除したいのであれば、選んだ行からユニークなキーを取得して、それをWHEREキーに削除クエリーを実行すれば良いのではないでしょうか。