Как переключить фокус на другую открытую форму?

@wwwmebel · Регистрация: 05.10.2008

Студворк — интернет-сервис помощи студентам

Открыто 2 формы. Надо из одной переключить фокус на другую.

Пробовал разные варианты:

Visual Basic
1
2
3
4
 DoCmd.SelectObject acForm, 'Заказы'
 DoCmd.OpenForm 'Заказы'
 Forms!Заказы.Form.SetFocus
 Forms!Заказы.Form![МойКонтрол].SetFocus

и не получилось... Заранее спасибо

@BorisL · 22.02.2010, 14:04

А так: Forms!Заказы.SetFocus

@sposad · 22.02.2010, 14:09

Зачем так сложно дорогой

Visual Basic
1
Forms![Имя формы].SetFocus

@wwwmebel · 23.02.2010, 09:00 **[ТС]**

Оказалось что проблема в другом. Я хотел, чтобы когда форма получает фокус и становится активной, то она передавала фокус на другую форму. И вот у меня почему-то не запускается событие Form_GotFocus(), хотя форма и становится активна, также пробовал убирать фокус в событии Open, но похоже форма становится активной после этого события...

ЗАЧЕМ всё это: при переходе к полю Примечание я хотел чтобы появлялось всплывающее окошко с кнопками (при нажатии на которые вставлялись наиболее часто используемые слова и фразы), но чтобы фокус _оставался_ на Примечании.
(Вот по нажатию на кнопку фокус убирать получается, но вот как узнать что форма стала активной, если не запускается Form_GotFocus...)

@sposad · 23.02.2010, 09:13

попробуй событие Form_Activate(), вообще, когда не знаешь, какое событие происходит, лучше написать на все возможные события msgbox-сы, которые выводят описание события. Тогда при совершении тестируемого действия на реально произошедшее событие(я) выскочит соответствующий msgbox.

@BorisL · 23.02.2010, 09:18

То, что не запускается Form_GotFocus естественно:

Из Help:
Форма может получить фокус только в случае, если в ней нет элементов управления, или если все видимые элементы управления формы являются недоступными. Если форма содержит доступные видимые элементы управления, то событие Получение фокуса для нее не возникает.

@wwwmebel · 23.02.2010, 09:28 **[ТС]**

Ладно... буду думать

))

(По поводу msgbox-ов - лучше использовать Debug.Print)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	22.02.2010, 14:04
	А так: Forms!Заказы.SetFocus 0

@wwwmebel 1 / 1 / 0 Регистрация: 05.10.2008 Сообщений: 101
	23.02.2010, 09:00 [ТС]
	Оказалось что проблема в другом. Я хотел, чтобы когда форма получает фокус и становится активной, то она передавала фокус на другую форму. И вот у меня почему-то не запускается событие Form_GotFocus(), хотя форма и становится активна, также пробовал убирать фокус в событии Open, но похоже форма становится активной после этого события... ЗАЧЕМ всё это: при переходе к полю Примечание я хотел чтобы появлялось всплывающее окошко с кнопками (при нажатии на которые вставлялись наиболее часто используемые слова и фразы), но чтобы фокус _оставался_ на Примечании. (Вот по нажатию на кнопку фокус убирать получается, но вот как узнать что форма стала активной, если не запускается Form_GotFocus...) 0

@sposad 0 / 0 / 0 Регистрация: 28.01.2010 Сообщений: 30
	23.02.2010, 09:13
	попробуй событие Form_Activate(), вообще, когда не знаешь, какое событие происходит, лучше написать на все возможные события msgbox-сы, которые выводят описание события. Тогда при совершении тестируемого действия на реально произошедшее событие(я) выскочит соответствующий msgbox. 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	23.02.2010, 09:18
	То, что не запускается Form_GotFocus естественно: Из Help: Форма может получить фокус только в случае, если в ней нет элементов управления, или если все видимые элементы управления формы являются недоступными. Если форма содержит доступные видимые элементы управления, то событие Получение фокуса для нее не возникает. 0

@wwwmebel 1 / 1 / 0 Регистрация: 05.10.2008 Сообщений: 101
	23.02.2010, 09:28 [ТС]
	Ладно... буду думать )) (По поводу msgbox-ов - лучше использовать Debug.Print) 0