Функция обратного вызова ленты доступа не может быть внутри отчета

Question

Ниже мой код ленты для отчета

<button id="EmailPDF" label = "Email Customer" 
    size="large"
    imageMso="FileEmailAsPdfEmailAttachment"
    onAction="=Rpt_Email()"
    supertip= "Email to customer."/>

А это моя функция обратного вызова

Public Function Rpt_Email() As Boolean
    MsgBox "OK"
End Function

Функция обратного вызова работает, если она есть в модуле. Но это не сработает, если я перенесу его в отчет. Мне нужно, чтобы это было в отчете. Потому что мне нужно получить доступ к информации каждого отчета и настроить электронную почту соответственно.

Answer 1

Вы не можете этого сделать. Обратные вызовы должны быть в модулях publi c и не могут быть в модулях классов, модулях форм или модулях отчетов.

Вместо этого используйте Screen.ActiveReport, чтобы определить, какой отчет активен из этого глобального модуля. Или создайте отдельные функции и ленты для каждого отчета и покажите их как ленту отчета (это дает дополнительное преимущество, заключающееся в том, что лента не отображается, если ни один из отчетов не открыт).