Cвойство ActiveControl

Пример

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

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

Dim frm As Form, ctrl As Control

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

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

Set ctrl = frm.ActiveControl

MsgBox ctrl

End Sub

В момент открытия форма «Редактор» выглядит следующим образом:

Результат: Фокус клавиатуры установлен на поле с названием

“Товар”.

Свойство CurrentRecord

Пример

Определить номер текущей записи при загрузке формы «Редактор».

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

Dim frm As Form, ctrl As Control

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

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

MsgBox "Текущая запись:" & frm.CurrentRecord

End Sub

Результат:

Свойство Visible

Пример

Даны 2 формы : «Форма6» и «Редактор», «Форма6» вызывает форму «Редактор» после вызова становится невидимой:

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

Dim frm As Form, ctrl As Control

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

Set frm = Forms!Форма6

Frm.Visible = False

End Sub

Свойства OrderBy и OrderByOn

Пример ]

Дана табличная форма «Товары», которая представлена на рисунке:

Нужно отсортировать поле «Товар» по возрастанию.

Dim frm As Form

DoCmd.OpenForm "Товары"

Set frm = Forms!Товары

frm.OrderBy = "Товар"

frm.OrderByOn = True

Результат:

Методы объекта Form

Метод	Описание
Goto Page	Передаёт фокус первому элементу управления на указанной странице активной формы
Recalc	Обновляет все вычисляемые элементы управления формы.
Refresh	Обновляет записи в текущем наборе с учётом изменений, внесённых пользователем. Этот метод не включает в набор записей новые записи, добавленные с момента выполнения последнего запроса, и не исключает изменённые записи.
Repaint	Обновляет экран и завершает все незавершённые вычисления в элементах управления формы.
Requery	Обновляет источник данных указанной формы. Синтаксис: объект. Requery, если объект не указан. то обновляется источник активных форм.
SetFocus	Передаёт фокус тому элементу управления указанной формы, который обладал фокусом последним. Если в форме нет элемента управления, то фокус передаётся самой форме.
Undo	Отменяет все изменения в форме. Происходит тоже, что и при нажатии клавиши ESC.