Принципы программирования функций обработки событий форм средствами языка VBA

         ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ РФ

БАЙКОНУРСКИЙ ЭЛЕКТРОРАДИОТЕХНИЧЕСКИЙ ТЕХНИКУМ

ИМ. М.И. НЕДЕЛИНА

Специальность_____230105___

Группа __________П-35_______

Дисциплина: ” БД ”

Тема: ” Использование функций для обработки событий ”

Лабораторная работа №6

Выполнила __________________________________________ Демакова С.Ю.

Проверила _______________________________________Костикова А.В.

Байконур 2008

Лабораторная работа № 6

по дисциплине «БД»

Использование функций для обработки событий.

Цель работы: Изучить принципы программирования функций обработки событий форм средствами языка VBA.

Создание связанных форм

1)  Щёлкаем на ярлыке Создание формы с помощью мастера в списке форм  окна базы данных;

2)  В первом диалоговом окне мастера выбираем в списке Таблицы и запросы имя Таблица: Абоненты;

3)  Переносим из списка Доступные поля в список Выбранные поля следующие поля таблицы: КодАбонента, ФИО, Домашний адрес, ДатаУстановки, НомерТелефона;

4)  Выбираем в списке Таблицы и запросы другую таблицу: Таблица: Оплата. В список Выбранные поля переносим: Дата, ТипОплаты, Сумма;

5)  В следующем диалоговом окне выбираем переключатель Связанные формы;

6)  Нажимаем кнопку Далее. Выбираем стиль – Стандартный;

7)  Вводим имена форм – Абонент2 и Оплата1. Нажимаем кнопку Готово;

8)  Открываем таблицу Абонент2 в режиме конструктора. Выбираем поле ФИО. Нажимаем правой кнопкой мыши, выбираем команду Свойства. В открывшемся диалоговом окне выбираем вкладку События. Находим событие Двойное нажатие кнопки. Создаём процедуру.

            

Private Sub ФИО_DblClick()

Dim strCriteria As String

On Error GoTo Err_ФИО_DblClick

strCriteria = "КодАбонента = Forms![Абонент2]!_[Оплата].form!Оплата"

DoCmd.OpenForm "Оплата", acNormal, , strCriteria

Exit_ФИО_DblClick:

     Exit Sub

Err_ФИО_DblClick:

     MsgBox Err.Description

     Resume Exit_ФИО_DblClick

End Sub

Ответы на контрольные вопросы:

1)  Процедура содержит набор инструкций и методов, с помощью которых выполняются действия или рассчитываются значения. Процедура функции Function возвращает значение, полученное в результате расчётов;

2)  Функция VBA может выглядеть так:

Function <имя функции> (аргумент1, аргумент2,…) as (Тип данных)

<Оператор VisualBasic1>

<Оператор VisualBasic2>

…………………………...

<имя функции> = <возвращает значение>

End Function