powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имя текущего модуля и процедуры
6 сообщений из 6, страница 1 из 1
Имя текущего модуля и процедуры
    #32219504
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дамы и господа, никто не помнит навскидку, можно ли из тела модуля узнать имя текущего модуля и процедуры? Что-нибудь типа me?

Спасибо.
...
Рейтинг: 0 / 0
Имя текущего модуля и процедуры
    #32219524
AIzotov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ProcOfLine?
...
Рейтинг: 0 / 0
Имя текущего модуля и процедуры
    #32219525
Leya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
application.CurrentObjectName
...
Рейтинг: 0 / 0
Имя текущего модуля и процедуры
    #32219544
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2AIzotov
Сначала придется сделать
set mdl = modules(strCurrModuleName)
,а уж потом
mdl.ProcOfLine
А мне как раз и нужно узнать strCurrModuleName...

2Leya
CurrentObjectName возвращает в порядке приоритета имя объекта, имеющего фокус, или объекта, чей код исполняется.
...
Рейтинг: 0 / 0
Имя текущего модуля и процедуры
    #32219574
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Видимо, нельзя... :(
...
Рейтинг: 0 / 0
Имя текущего модуля и процедуры
    #32219979
IgorM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если очень нужно, то можно самому сделать, топорно, конечно, но работать будет... Три функции, одна добавляет имя модуля и функции в стек (реализуется с помощью коллекции), вторая удаляет их оттуда, третья получает вершину. Первую функцию вызываешь при входе в процедуру, вторую при выходе, третью - где необходимо.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имя текущего модуля и процедуры
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]