Отправляет email-рассылки с помощью сервиса Sendsay

СУБД MS Access 2003 -это просто

  Все выпуски  

СУБД MS Access 2003 -это просто. Урок 48. Процедуры VBA обработки событий объектов Access


Урок №48

Программирование VBA событий объектов форм и отчетов Access 2003

Здравствуйте, уважаемые подписчики!

Как правило, формы и отчеты в Access создаются с помощью конструктора и мастера построения, т.е. без применения VBA. Но для автоматизации действий над объектами в формах и отчетах используются программы на языке VBA. Действия над объектами в формах и отчетах основаны на событиях объектов. Следует отметить, что созданные процедуры обработки событий объектов обычно хранятся в модулях форм или отчетов.

В качестве примера рассмотрим программирования действий над объектами в форме "Студенты" базы данных "Training_students_O_F". Создадим в этой форме поисковую систему с помощью текстового поля с именем "Образец" (надпись "Образец поиска") и кнопки "Поиск". То есть выполним поиск реквизитов студента в списке формы при вводе конкретной фамилии студента в текстовое поле "Свободный" под надписью "Образец поиска" и щелчке на кнопке "Поиск". Для этого откроем форму "Студенты" в режиме конструктор.

 Затем щелкнем на кнопке Поиск правой кнопкой мыши и в контекстном меню выберем команду "Свойства". Откроется диалоговое окно "Кнопка" перейдем на вкладку "События". Для события "Нажатие кнопки" выберем из раскрывающегося списка "Процедура обработки событий" и щелкаем на кнопке Построитель (кнопка с тремя точками). Откроется окно редактора VBA. В окне редактора кода будет отображаться первый и последний операторы процедуры обработки событий Click для кнопки Поиск:

Private Sub Поиск_Click()

End Sub

Процедуру обработки событий мы можем написать непосредственно в окне редактора кода. Вначале запишем переход к текстовому полю "Фамилия", в котором будет выполняться поиск, т.е. применим метод SetFocus, который устанавливает фокус на элемент управления, вызвавший этот метод. Эта инструкция имеет следующий вид: Фамилия.SetFocus.
Для запуска действия "Найти запись" по "Образцу поиска" воспользуемся методом FindRecord объекта DoCmd. Эта инструкция может быть представлена в следующем виде: DoCmd.FindRecord Образец. В результате процедура обработки событий имеет следующий код, представленный на скриншоте редактора кода VBA,

 Private Sub Поиск_Click()

    Фамилия.SetFocus
    DoCmd.FindRecord Образец

 End Sub

Продолжение на страничке: http://www.lessons-tva.info/articles/informat/31.html

С уважением, Владимир Ткаченко

Обучение в интернет информатике, основам компьютерных сетей и телекоммуникаций 

________________________________________________________________________________

При перепечатке материалов прямая активная ссылка на http://www.lessons-tva.info/ обязательна

Copyright Обучение в Интернет, 2014. All Rights Reserved.

Vladimir Tkachenko

В избранное