Создадим новую форму FormIgra с кнопкой "Запуск" в базе данных Access 2003. Базу данных можно скачать по ссылке Training_students_O_F.zip. Назначим кнопке "Событие" - "Нажатие кнопки". Технология создания формы и кнопки, которой назначено Событие (Нажатие кнопки), рассмотрена в статье "Редактор VBA".
В режиме "Конструктор" добавим в форму FormIgra текстовую строку, щелкнув на элемент "Поле" в панели элементов. Метку можно удалить. Присвоим текстовой строке имя - glftext. Для этого используем контекстное меню, в котором выберем команду свойства, и в поле "Имя" введем glftext.
Рис. 1
Закроем форму (рис. 1), сохранив при этом изменения в форме. Текстовую строку мы добавили для того чтобы в нее можно было помещать какие-либо слова при нажатии кнопки Запуск. Откроем редактор VB, нажав сочетание клавиш Alt+F11. Откроется редактор VB. В окне "Projekt - Деканат" в директории Microsoft Access Class Objects (директории объектов классов Access, которые включают модули форм и отчетов) появится новый стандартный модуль: "Form_FormIgra".
Рис. 2
В окне редактора кода Training_students_O - Form_FormIgra (Code), скриншот которого представлен на рисунке 3, отображается рассматриваемая заготовка модуля. Код модуля содержит первый Sub cmdPusk_Click и последний End Sub операторы процедуры, т.е. представляет собой заготовку процедуры. В заготовке процедуры отсутствует исполняемый код обработки события.
Рис. 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 (процедура).
Рис. 4
Таким образом, создана процедура обработки события Click (нажатия кнопки) объекта cmdPusk. Если в текстовой строке отображается слово "Орел", то после выполнения такого события как нажатие кнопки "Запуск" в текстовую строку будет помещено слово "Решка". Если в текстовой строке не отображается слово "Орел", то после выполнения такого события как нажатие кнопки "Запуск" в текстовую строку будет помещено слово "Орел". Переходим в окно базы данных на вкладку Формы, выделяем FormIgra и щелкаем на кнопке Открыть. Откроется форма "FormIgra: форма".
Рис. 5
Щелкаем на кнопке "Запуск", запускается процедура обработки события и в результате в текстовую строку помещается слово "Орел".
Рис. 6
При следующем нажатии кнопки "Запуск" в текстовой строке появится слово "Решка".
Рис. 7
При следующем нажатии кнопки "Запуск" в текстовой строке появится слово "Орел". Таким образом, при каждом нажатии кнопки "Запуск" слова "Орел" и "Решка" сменяя друг друга, будут отображаться в текстовом поле формы FormIgra.
