Сочетание клавиш CommandBar VBA сбой Access365 - хорошо на Access16

Question

У меня есть код, который добавляет клиентскую панель команд, когда я щелкаю правой кнопкой мыши отчет MS AccessУ некоторых есть собственный код (например, «Отправить отчет по электронной почте»)

Когда я недавно обновился с Office ... 2016 (я думаю?), Перестал работать «Отправить как электронное письмо».Что происходит сейчас, так это то, что приложение останавливается, а затем перезапускается, спрашивая «где вы хотите сохранить резервную копию файла accdb».

Я ничего не изменил, и все другие ярлыки работают.Я поставил остановки в моей процедуре SendasEmail (), но программа не доходит до моего кода, просто перезапускается, как только я нажимаю кнопку быстрого доступа.

Public Function CreateReportShortCut()

Dim MenuName As String
Dim CB As CommandBar
Dim CBB As CommandBarButton

    MenuName = "ReportShortcut"

On Error Resume Next

Application.CommandBars(MenuName).Delete
On Error GoTo 0

Set CB = Application.CommandBars.Add(MenuName, msoBarPopup, False, False)

Set CBB = CB.Controls.Add(msoControlButton, 2521, , , True)
    CBB.Caption = "Print to Default Printer"

Set CBB = CB.Controls.Add(msoControlButton, 15948, , , True)
    CBB.Caption = "Select a Printer to Print to"

    CBB.BeginGroup = True

Set CBB = CB.Controls.Add(msoControlButton, , , , True)
    CBB.Caption = "Send as Email"
    CBB.Tag = "Send as Email"
    CBB.FaceId = 12238
    CBB.OnAction = "=SendAsEmail()"

Set CBB = CB.Controls.Add(msoControlButton, 12499, , , True)
    CBB.Caption = "Save to Hard Drive"
    CBB.FaceId = 16122

    CBB.BeginGroup = True

Set CBB = CB.Controls.Add(msoControlButton, 923, , , True)
 CBB.Caption = "Close Report"


Set CB = Nothing
Set CBB = Nothing
End Function

Любые идеи о том, какпроверить это.Я не использую идентификатор в разделе Add () для SaveAsEmail, но это единственная часть, которую я считаю другой!