Accessの再クエリについて

質問

Win2000、Access2000を使用しています。
１.すでに入力してあるデータ（Aフォーム、単票形式）の内容を変更して
　　「登録ボタン」をクリックすると再クエリを行う
２.「Bを開くボタン」をクリックすると、Bフォーム（単票形式）が開く
３.BフォームにはAフォームの変更が反映されている。
という流れにするため、Aフォームの登録ボタンをクリックしたら、再クエリをするようにVBを組みました。
AとBは、ID（オートナンバー型）でリレーションを組んでいます。
Aフォームは閉じないでそのまま表示させておき、Bフォームを開くボタンを作成しました。
ところが、再クエリをすると、１件目のデータを表示させてしまいます。
変更したフォームが２件目とか３件目であっても１件目を表示させてしまうので、変更したフォームを表示させたいんですが、どなたかおわかりになる方がいましたら、お教えください。
再クエリのＶＢは以下のとおりです。

Private Sub btn_登録_Click()

Dim touroku As Integer

touroku = MsgBox("このデータを登録しますか？", vbYesNo + vbQuestion, "登録")

If touroku = vbYes Then

DoCmd.Requery

End If

End Sub

説明がわかりずらくって申し訳ありませんが、よろしくお願いします。

回答No.2

gadd3 · ベストアンサー

FindRecordは検索するテキストボックス（フィールド）にカーソルを当ててからでないと動かなかった気がします。

例えば「商品ID」などで探すときは、
（商品IDtbxという名前の連結テキストボックスがあったとすると）

Dim idnumber As Long '（商品IDを長整数型と仮定して、）商品IDを格納する変数を定義

idnumber = Me!商品IDtbx

Me!Requery
Me!商品IDtbx.SetFocus
DoCmd.FindRecord idnumber

と、こんな感じでしょうか・・・

お礼

たびたびのご回答ありがとうございます。
お礼が遅くなりまして申し訳ございません。
うまくいきました。
また質問すると思いますが、そのときはよろしくお願いします。

回答No.1

gadd3

Requery は 1件目のレコードに戻ってしまうという「仕様」なので、btn_登録_Click時にカレントになっているレコードの主キーの値を何かの変数に入れておき、Requery した後にそこへDocmd.FindRecord などで戻る という方法でよいのではないでしょうか？

もしくは、Requery ではなく Refresh を試してみるとか・・・

補足

ご回答ありがとうございます。
以下のようにVBを組み直してみましたが、カレントレコードへは行ってくれませんでした。

Private Sub btn_登録_Click()

Dim touroku As Integer
Dim curren As Long

touroku = MsgBox("このデータを登録しますか？", vbYesNo + vbQuestion, "登録")

If touroku = vbYes Then
curren = Me.CurrentRecord
DoCmd.Requery
DoCmd.FindRecord curren
End If
End Sub

大変申し訳ありませんが、再度お教え下さい。
よろしくお願いします。