閉じるボタンを押下したらエラーになる

前提・実現したいこと

Access2010で開発したForm上のボタンでエラーが出ます。
ソースコードについては下記を参照ください。

なお、Access2010+Windows7では現象が再現されていません。
現象が出るのはAccess2016+Windows10です。

** 実現したいこととしては、Windows7+Access2010であっても
Windows10+Access2016であってもエラーなく動作させたいです。**

発生している問題・エラーメッセージ

ブックマークが正しくありません

該当のソースコード

VBA
1Private Sub cmdClose_Click()
2On Error GoTo Err_cmdClose_Click
3
4    Dim vntBM   As Variant
5    Dim vntSF   As String
6    
7    If Me.Dirty Then Me.Dirty = False
8    DoCmd.Close
9    
10    'add at 2015/10/06
11    'クエリ再実行後に元の画面で画面遷移前の状態にする
12    Form_納入機種一覧.Painting = False
13    
14    vntBM = Form_納入機種一覧.Bookmark
15    vntSF = Form_納入機種一覧.ActiveControl.Name
16    
17    Form_納入機種一覧.Requery
18    Form_納入機種一覧.Bookmark = vntBM
19    Form_納入機種一覧.Controls(vntSF).SetFocus
20    
21    Form_納入機種一覧.Painting = True
22    
23Exit_cmdClose_Click:
24    Exit Sub
25
26Err_cmdClose_Click:
27    MsgBox Err.Description
28    Resume Exit_cmdClose_Click
29    
30End Sub

試したこと

Windows10+Access2016
Windows7+Access2010
で動作を行いました。

補足情報（FW/ツールのバージョンなど）

Form_納入機種一覧はエラーが出た画面の呼び出し元の画面名です。

行動規範の内容に同意します

回答2件

Form プロパティ (Access) | Microsoft Docs より引用

フォームの再クエリを行うと、そのフォームのレコードに設定されたすべてのブックマークが無効になります。

再クエリ後、ブックマークを使って元の位置に戻るコードは検索すると結構出てきますが、Microsoftが公式に言っていることなので、その方法は避けたほうがいいでしょう。

呼び出したフォーム上で元フォームと同じレコードを更新して、それを反映させるためにRequeryしているのだと思いますが、更新するのがカレントレコードだけならRefresh(レコードの更新)すれば反映されます。これなら、レコード移動しませんのでブックマークも不要です。

あと、Form_納入機種一覧 とクラス名でフォームを参照していますが、これはサブフォームなどで複数同じフォームを開いているとどのフォームを参照するか不定ですし、開いてないときに参照すると、非表示でインスタンスが生成されるなど、いろいろバグの原因になりやすいので、Forms!納入機種一覧という式で参照するようにすべきです。

vba
1Private Sub cmdClose_Click()
2On Error GoTo Err_cmdClose_Click
3
4    If Me.Dirty Then Me.Dirty = False
5    DoCmd.Close
6
7    Forms!納入機種一覧.Refresh
8
9Exit_cmdClose_Click:
10    Exit Sub
11
12Err_cmdClose_Click:
13    MsgBox Err.Description
14    Resume Exit_cmdClose_Click
15End Sub