мс-VBA доступ к функции Eval поведение

Question

У меня есть публичную функцию в виде доступа

Public Function PopupProcess() as long 
    MsgBox Me.ActiveControl 
    PopupProcess = 1 
End Function 

Когда я называю

eval("forms('MyForm').popupprocess") 

он показывает окно с сообщением 2 раза. Кто-нибудь знает, почему это так?

У меня есть доступ 2003 с SP3.

EDIT: Основная идея - вызывать функцию из этой формы для пользовательского управления CommandBanAction. Возможно, у вас есть лучший способ вызвать функцию из формы для управления командной строкой.

Answer 1

Это очень долго стоять ошибка, которая была вокруг со времен доступа 97, (около 4-5 версий доступа).

Решения здесь НИКОГДА не используйте форму спецификатора, просто поместите его в вашем на действие события, и вы будете просто отлично

=PopUpProcess() 

Обратите внимание, что вы должны предшествовать его с = и суффикс должен иметь скобки()

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

Еще лучше, если одна из форм не имеет этой функции как общедоступной в модуле кода форм, то используется функция в стандартном модуле кода. Таким образом, у вас может быть девять форм, которые используют стандартную одну функцию в основном стандартном модуле кода. Тем не менее, для 10-й формы может потребоваться запуск специального кода, поэтому вы просто помещаете этот код функции в модуль кода формы как общедоступный, и он будет запускаться вместо публики в стандартном модуле кода.

Этот подход позволяет вам создать единую настраиваемую панель меню, которая применяется ко многим различным формам, но эти многие формы будут запускать другой код из этой пользовательской строки меню. Это также побуждает вас размещать код меню в том виде, в котором он принадлежит.

Чтобы решить вашу проблему, просто не используйте квалификатор формы и используйте вышеуказанный формат.

Обратите внимание, что вы можете передать параметры из этих функций также, например

=PopUpProcess(‘hello’) 

А потом объявить функцию как:

Public Function PopUpProcess(strParm as string) 

Имейте в виду, что функции и синтаксис, и все то, что Я уже говорил выше, когда вы используете действие on в ленте для доступа 2007.

Answer 2

Не знаю. Что произойдет, если вы назовете это так?

Call Forms("MyForm").PopupProcess 

Попробуйте использовать функцию CallByName вместо eval для вызова вашей функции. Он должен только огонь вашей функции один раз, и он будет по-прежнему позволяют спараметрировать имя формы и функции или суб имя:

CallByName Forms("MyForm"), "PopupProcess", VbMethod