ACCESS 一覧画面リクエリ時に元の位置に戻るソース

Private Sub Form_Activate()

On Error Resume Next

Dim CR As Long
Me.Painting = False
CR = Me.CurrentRecord

Me.Requery

DoCmd.GoToRecord , , acGoTo, CR
Me.Painting = True

End Sub

「 On Error Resume Next」をつけないと、レコード削除時にカレントレコードがないというエラーが出てしまうので注意。

＜追記＞

上記のような方法を用いなくても

Me.Form.Requery で　同じ結果を得ることができるようです。