Я только публикую это, так как я не смог найти решение нигде. Я наконец-то понял. На самом деле глупо.
При использовании свойства RunCode в макросе доступа я пытался запустить Sub из моего глобального модуля. Я получаю сообщение об ошибке "Введенное выражение имеет имя функции, которую база данных не может найти". Я не мог понять, в чем проблема. Я последовал советам всех, кто опубликовал эту проблему, которая была в основном следующей:
Все еще не сработало!
Затем я внимательно прочитал сообщение об ошибке. В нем упоминается, что он не мог найти имя функции. По-видимому, свойство RunCode специально требует "Function", а не Sub. Итак, я просто сменил Sub на Function, и он работал нормально!
Надеюсь, что это поможет.
Другое решение, которое сработало для меня:
Имя модуля не может иметь то же имя, что и процедура (и) в модуле (-ях).
У меня была аналогичная проблема с сообщением об ошибке. Мой код VBA имел следующее объявление:
private function MyFunction()
....
end function
Я удалил объявление private, чтобы получить Macro Runcode для выполнения MyFunction()
Например:
Function MyFunction()
End Function
Доступ к 2013 году: функция, вызванная с MyFunction() из RunCode, где MyFunction не существует, дает мне ошибку 2425. Однако для меня ничего не работает, и я все еще получал номер ошибки 2001, когда функция существует и является общедоступной, База данных находится в надежном месте. Ошибок компиляции нет, но что-то в MyFunction не работает, а именно
DoCmd.ShowAllRecords
после того, как GoToControl работал над выбором моей подформы. Реальной проблемой был мой код для удаления фильтра с помощью VBA. Руководство для ShowAllRecords, по-видимому, указывает на то, что это должно работать, но вместо DoCmd.ShowAllRecords с
DoCmd.RunCommand acCmdRemoveFilterSort
исправлена моя проблема.
Кажется, что в базе данных есть объекты, кроме вызываемой функции VBA. Без других объектов (в частности, таблицы в моем случае) функция не может быть найдена из вызывающей среды (например, Excel VBA).
Я хотел поблагодарить Джона Типтона и добавить новую информацию. Я использовал MS Access 2016 и начал эту проблему, так что эта проблема все еще поднимает свою уродливую голову. Для моего работы имя функции и имя макроса должны быть разными, а в коде после функции myFunc() имя должно отличаться от имени модуля, которое вы видите на панели доступа. Еще одна странная вещь. Когда я выбрал RunCode в Macro, он покажет мне функцию (она не покажет мне модули Sub VBA), которую я пытался выбрать, но когда я ее выбрал, Macro закодировал ее как имя функции с одним левым символом "(". Это было запущено на машине Windows 8 Pro.
Моя ошибка заключалась в помещении функции в модуль класса вместо обычного модуля.
Access Office 365. Моя подпрограмма работает, когда вызывается из VBA и используется для работы в макросах. Перенес функциональный текст в отдельный модуль, сохранил его сам. Дали модулю (не классу) уникальное имя.