powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Активное окно
9 сообщений из 9, страница 1 из 1
Активное окно
    #32699662
Dmyttro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините за детский вопрос, но как программно узнать, какой из объектов (форма, отчет, модуль и т.д.) находится в активном окне?
...
Рейтинг: 0 / 0
Активное окно
    #32699681
IgorM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Screen.ActiveForm
Screen.ActiveControl
Screen.ActiveReport
Screen.ActiveDatasheet
...
Рейтинг: 0 / 0
Активное окно
    #32699698
Dmyttro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 IgorM
Вот как-раз со Screen и хочу употребить. А узнать мне надо, что в активном окне именно форма или именно отчет, т.к. если Screen.ActiveForm вызвать при открытом отчете, то генерится ошибка, что совершенно объяснимо.
...
Рейтинг: 0 / 0
Активное окно
    #32699723
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dmyttro2 IgorM
Вот как-раз со Screen и хочу употребить. А узнать мне надо, что в активном окне именно форма или именно отчет, т.к. если Screen.ActiveForm вызвать при открытом отчете, то генерится ошибка, что совершенно объяснимо.

Ну дак употребляйте ...
Если ошибка на Screen.ActiveForm, значит не форма
Если ошибка на Screen.ActiveReport значит активен не отчет
Обработайте ошику ...
...
Рейтинг: 0 / 0
Активное окно
    #32699734
Dmyttro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 Serge Gavrilov
А без сознательного создания ошибки никак?
Т.е. If тип_объекта_в_текущем_окне_форма then
Screen.ActiveForm .....
Else .... ?
...
Рейтинг: 0 / 0
Активное окно
    #32699747
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в таком случае генерация ошибки оправданный и прямой путь к успеху,не стоит бояться поставить конструкцию on error goto

2 альтернатива через
Код: plaintext
1.
2.
3.
4.
5.
6.
For Each docLoop In MyDb.Containers!Forms.Documents
For Each docLoop In MyDb.Containers!Reports.Documents
For Each docLoop In MyDb.Containers!Modules.Documents
For Each docLoop In MyDb.Containers!Scripts.Documents
For Each MyTbl In MyDb.TableDefs
For Each MyQuer In MyDb.QueryDefs
не переносима на ado и медленна
...
Рейтинг: 0 / 0
Активное окно
    #32699779
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну есть еще
CurrentObjectName
CurrentObjectType
...
Рейтинг: 0 / 0
Активное окно
    #32699795
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serge GavrilovНу есть еще
CurrentObjectName
CurrentObjectType

Только надо иметь ввиду, что при этом текущий объект не обязательно открыт, а может быть просто выделен в окне БД
...
Рейтинг: 0 / 0
Активное окно
    #32699896
Dmyttro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 Serge Gavrilov
Как раз то, что хотел. Сэнькс.
З.Ы. А окно базы данных скрыто от юзера.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Активное окно
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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