access2010 "CloseWindow/ウィンドウを閉じる" マクロ アクション

"CloseWindow/ウィンドウを閉じる" マクロ アクションでの不具合メモ
<再現>
レポートのショートカットメニューをマクロで作成。
"CloseWindow/ウィンドウを閉じる" マクロ アクション

• オブジェクトの種類：レポート
• オブジェクト名：（レポート名）
• オブジェクトの保存：任意

のサブマクロをショートカットメニューから起動させる設定。

<現象>
ダイアログモード+印刷プレビューで開いたレポートを閉じることは成功するが、以降、タスクバーでaccessを終了させる以外の操作が不能になる。

<対処>

メニューコマンドの実行/閉じるを使う。もしくは

マクロでショートカットメニューを作らなければ無事に作動する。

Option Compare Database
Option Explicit
'msoBarPopup=5
'msoControlButton=1
Sub CreateSC01()
    Dim cb As Object

On Error Resume Next
    CommandBars("testSC").Delete
    Set cb = CommandBars.Add("testSC", 5, False, False)

    With cb.Controls.Add(1, 15948)
        .Caption = "PrintDialogAccess"
    End With

    With cb.Controls.Add(1, 923)
        .Caption = "PrintPreviewClose"
    End With

    With cb.Controls.Add(1, 14782)
        .Caption = "CloseDocument"
    End With
    
    With cb.Controls.Add(1)
        .Caption = "メニューコマンドの実行:閉じる"
        .OnAction = "reportshortcut.メニューコマンドの実行閉じる"
    End With
   
    With cb.Controls.Add(1)
        .Caption = "メニューコマンドの実行:ウインドウを閉じる"
        .OnAction = "reportshortcut.メニューコマンドの実行ウインドウを閉じる"
    End With
    
    With cb.Controls.Add(1)
        .Caption = "ウインドウを閉じるアクション"
        .OnAction = "reportshortcut.ウインドウを閉じるアクション"
    End With
    
    Set cb = Nothing

End Sub

不具合確認済み