Процедура обработки события для кнопки формы в Access 2003

RSS, Twitter, Vkontakte, Facebook

Процедуры обработки событий в СУБД Access 2003

Создание процедуры IF в СУБД Access 2003

Автор: Владимир Ткаченко

Источник: Обучение в интернет

Создадим новую форму FormIgra с кнопкой "Запуск" в базе данных Access 2003. Базу данных можно скачать по ссылке Training_students_O_F.zip. Назначим кнопке "Событие" - "Нажатие кнопки". Технология создания формы и кнопки, которой назначено Событие (Нажатие кнопки), рассмотрена в статье "Редактор VBA".

В режиме "Конструктор" добавим в форму FormIgra текстовую строку, щелкнув на элемент "Поле" в панели элементов. Метку можно удалить. Присвоим текстовой строке имя - glftext. Для этого используем контекстное меню, в котором выберем команду свойства, и в поле "Имя" введем glftext.

Форма FormIgra с кнопкой "Запуск" в базе данных Access 2003
Рис. 1

Закроем форму (рис. 1), сохранив при этом изменения в форме. Текстовую строку мы добавили для того чтобы в нее можно было помещать какие-либо слова при нажатии кнопки Запуск. Откроем редактор VB, нажав сочетание клавиш Alt+F11. Откроется редактор VB. В окне "Projekt - Деканат" в директории Microsoft Access Class Objects (директории объектов классов Access, которые включают модули форм и отчетов) появится новый стандартный модуль: "Form_FormIgra".

Окно "Projekt - Деканат" в базе данных Access 2003
Рис. 2

В окне редактора кода Training_students_O - Form_FormIgra (Code), скриншот которого представлен на рисунке 3, отображается рассматриваемая заготовка модуля. Код модуля содержит первый Sub cmdPusk_Click и последний End Sub операторы процедуры, т.е. представляет собой заготовку процедуры. В заготовке процедуры отсутствует исполняемый код обработки события.

Редактор кода Training_students_O - Form_FormIgra (Code) в базе данных Access 2003
Рис. 3

Для создания процедуры обработки события при нажатии кнопки "Запуск" необходимо в заготовку модуля (рис.3) между операторами Sub cmdPusk_Click () и End Sub вставить соответствующий исполняемый код. Ввод исполняемого кода обработки событий или ввод текста программы выполним непосредственно в окне редактора кода. Итак, создадим процедуру, которая при нажатии кнопки будет помещать в текстовое поле слова "Орел" или "Решка". При нажатии кнопки должны производиться два различных действия, одно при соблюдении условия, а второе - нет. В этом случае надо воспользоваться полной формой оператора IF.

Применим оператор условного перехода IF...Then...Else...End If, который имеет две альтернативные ветви процедуры:
IF условие Then
инструкция 1
Else
инструкция 2
End If.

Если условие соблюдается, выполняется инструкция 1 (оператор или группа операторов), расположенная между ключевыми словами Then и Else, а если не соблюдается - то инструкция 2, расположенная между ключевыми словами Else и End if

С учетом того, что при нажатии кнопки в текстовой строке с именем "glftex" должно отображаться слово "Орел" или "Решка", запишем процедуру в таком виде:

If (glftext = "Орел") Then
glftext = "Решка"
Else
glftext = "Орел"
End If

В окне редактора кода (Code) будет отображаться код программы на Visual Basic (процедура).

В окне редактора кода (Code) отображается код программы на VB в базе данных Access 2003
Рис. 4

Таким образом, создана процедура обработки события Click (нажатия кнопки) объекта cmdPusk. Если в текстовой строке отображается слово "Орел", то после выполнения такого события как нажатие кнопки "Запуск" в текстовую строку будет помещено слово "Решка". Если в текстовой строке не отображается слово "Орел", то после выполнения такого события как нажатие кнопки "Запуск" в текстовую строку будет помещено слово "Орел". Переходим в окно базы данных на вкладку Формы, выделяем FormIgra и щелкаем на кнопке Открыть. Откроется форма "FormIgra: форма".

Форма "FormIgra: форма" базы данных Access 2003
Рис. 5

Щелкаем на кнопке "Запуск", запускается процедура обработки события и в результате в текстовую строку помещается слово "Орел".

В форме "FormIgra: форма" базы данных Access 2003 отображается слово "Орел"
Рис. 6

При следующем нажатии кнопки "Запуск" в текстовой строке появится слово "Решка".

В форме "FormIgra: форма" базы данных Access 2003 отображается слово "Решка"
Рис. 7

При следующем нажатии кнопки "Запуск" в текстовой строке появится слово "Орел". Таким образом, при каждом нажатии кнопки "Запуск" слова "Орел" и "Решка" сменяя друг друга, будут отображаться в текстовом поле формы FormIgra.

Подпишитесь на мою рассылку СУБД MS Access 2003 -это просто!