Access не может запустить функцию обратного вызова 'GetEnabled' - PullRequest
Новая
       66

Access не может запустить функцию обратного вызова 'GetEnabled'

0 голосов
/ 25 октября 2019

Access не может найти мой Sub 'GetEnabled'. Я хотел бы отключить кнопку «bttnPAemail», если форма rptPA активна. Я не могу получить доступ, чтобы найти Sub 'GetEnabled. Я создал новый модуль с названием 'ribbonXML' и сохранил ниже VBA. При загрузке я получаю ошибку обратного вызова. 

<button id="bttnPAemail" label="Email PA Report" onAction="oPAemail" imageMso="NewMailMessage"
size="large" supertip="Print" getEnabled="GetEnabled"/>


Option Compare Database
Public IRibbonControl As IRibbonUI

Public Sub GetEnabled(ctl As IRibbonControl, ByRef Enabled)
    If Reports!rptPA.Visible = True Then
        Enabled = True
    Else
        Enabled = False
    End If
End Sub
...