注意！BookMarkは、ReQueryでリセットされます。

■BookMark利用例

    ※サブフォーム「ｓ」の帳票データに対して
    ※項目IDの値がＡであるレコードにカーソルを移動
　

    Dim db As Database
    Set db = CurrentDb
    Dim tb As Recordset
   
    （　　　：　　）
    （Me!s.Requery）

    Set tb = Me!s.Form.RecordsetClone
    tb.FindFirst "[ID]=" & A
    Me!s.Form.Bookmark = tb.Bookmark
    tb.Close