こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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をしようしています。よろしくお願いします。

投稿日時 - 2002-07-04 13:56:44

QNo.306401

すぐに回答ほしいです

質問者が選んだベストアンサー

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

投稿日時 - 2002-07-04 16:22:46

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問