End Sub. До начала работы форма выглядит

До начала работы форма выглядит:

После выполнения события:

Cвойство ActiveControl

Пример

Дана форма, которая вызывает форму «Редактор». Вывести на экран объект, который обладает в момент открытия формы фокусом клавиатуры.

Private Sub Кнопка0_Click()

Dim frm As Form, ctrl As Control

DoCmd.OpenForm "Редактор"

Set frm = Forms!Редактор

Set ctrl = frm.ActiveControl