コードによるレコードの移動

Question

今日は。フラグです。

フォームを使用した削除処理を作成しています。
サブフォームに表形式で乗っている項目を削除した時に、再表示後にすぐ上のレコードにカーソルを合わせたいのですが、うまく行きません。
削除前にレコードを一つさかのぼり、キーワードを保存して、元の位置にレコードを戻した後に削除。リクエリ後にキーワードを使用してfindする。
という手順で構築しようとしたところ、レコードがうまく戻れません。

どなたかご教授願います。

ブックマークを使用すると言うのは分かったのですが・・・。

お願いいたします。

追記

レコードセット.movepreviousは使って見ました。

findとbookmarkは後半の処理で使用しています。

Answer 1

ブックマークによる移動がわからない、ということでしょうか？

その前提でいいますけど、

設定は

Dim bMark as Object

Recordset.MoveFirst

bMark=Recordset.Bookmark

（この例では最初の行にブックマークを設定している）

移動は

Recordset.Bookmark=bMark

です。

Answer 2

フラグです。

返信ありがとうございます。

ちょっと違います。ブックマークとfindは問題ありません。これは最後に使用してるのでまだ動かないかどうかは分かりません。出だしでつまづいてたので・・・。

削除処理終了後に削除したレコードの一つ上（一件前）のレコードにカーソルをあてる

という作業を作る為、削除処理が走る前に一件前のレコードに一度移しておく必要があるんですよ。

 

今、少々違ったやり方を模索中です。（検索時に通し番号を取得し、その番号を利用する方法）

そちらで何とかなる気がするので、一旦ここで終了させてください。

 

Answer 3

お久しぶりです。

 

解決したことをご報告していなかったので。ご報告いたします。

 

 

コードが長すぎるので省略させていただきます。