Использование VBA для ввода данных в форму

Как вы уже, наверное, поняли, почти все в Access является объектом. Одной из особенностей объектов является их способность распознавать события, представляющие собой некие действия, и реагировать на них. Практически все объекты распознают щелчки, двойные щелчки и перемещение мыши. Помимо этого, большинство объектов распознают и другие события. Так, например, элемент управления поле распознает 17 событий, а форма - более 50.

При работе с формой объекты практически постоянно сигнализируют события. Часть событий Access обрабатывает, но большинство игнорирует. Для событий, которые Access распознает, но не обрабатывает, можно указать действие, которое следует выполнить после наступления данного события (например, запустить макрос, решающий определенную задачу).

Все это звучит довольно сложно. К тому же события не относятся к числу понятий, о которых задумывается обычный пользователь. Тем не менее стоит уделить им внимание, если вас интересует, что происходит при вводе данных и как добиться большей эффективности объектов формы.

В базе данных GardenCo код клиента состоит из трех первых букв фамилии и двух первых букв имени, причем все буквы заглавные. Подобная методика позволяет создать уникальный код клиента. При попытке ввести код, который уже используется, Access заблокирует поле, и вам придется изменить код (например, добавить цифру), чтобы обеспечить его уникальность. Компьютер легко справляется с такими задачами, как объединение частей двух слов и преобразование букв в прописные. Поэтому, вместо того чтобы вводить код клиента вручную для каждой новой записи, предоставьте эту функцию VBA-программе.

В этом упражнении вы напишете небольшую VBA-программу и свяжете ее с событием После обновления (After Update) в поле Фамилия формы Клиенты. Если изменить содержимое поля и попытаться перейти к другому элементу формы, генерируется событие Перед обновлением (Before Update). Access реагирует на это событие, обновляя запись в исходной таблице, после чего генерируется событие После обновления (After Update), обработкой которого вы и займетесь. Это упражнение не является глубоким погружением в Visual Basic, но дает представление о его возможностях. В качестве рабочей папки будет использоваться Office XP SBS\Access\Chap11\Events. Выполните следующие шаги.

1. Откройте базу данных GardenCo, расположенную в рабочей папке.
2. На панели объектов выделите Формы (Forms), в списке форм щелкните на Клиенты, а затем щелкните на кнопке Конструктор (Design).
3. Щелкните на поле Фамилия, чтобы выделить его, и откройте диалоговое окно Свойства (Properties), нажав на клавишу (F4).
4. Щелкните на вкладке Событие (Event), чтобы отoбразить следующий список.
   

   
   
   На вкладке представлены события, на которые может реагировать элемент управления Фамилия.
5. Щелкните на событии После обновления (After Update), а затем щелкните на кнопке построителя :. Появится диалоговое окно Построитель (Choose Builder), в котором предлагается построить выражение, макрос или программу.
6. Щелкните на Программы (Code Builder) и щелкните на кнопке ОК, чтобы открыть окно редактора Visual Basic, показанное ниже.
   

   
   увеличить изображение
   
   На панели Проект (Project Explorer) перечислены все созданные вами объекты, с которыми можно связать программу. В данном случае это форма Клиенты. По мере создания других форм и отчетов на панели будут появляться соответствующие объекты.

   В окне программы отображается процедура Private Sub Фамилия_AfterUpdate, которая будет использоваться для обработки события После обновления (After Update) в поле Фамилия. На данном этапе она состоит только из двух утверждений, определяющих ее начало (Sub) и конец (End Sub).
7. Введите следующие строки между операторами Sub и End Sub (или скопируйте их из файла AftUpdate в папке Office XP SBS\Access\Chap11\Events ).

   'Создайте переменные для Имени, Фамилии 
   'и Кода клиента
   Dim fName As String
   Dim lName As String
   Dim cID As String
   'Присвойте значения переменной lName из текстового 
   'поля Фамилия.
   lName = Forms!клиенты!Фамилия.Text
   'Вы должны активизировать текстовое поле прежде, 
   'чем прочитать его содержание.
   Forms!клиенты!Имя.SetFocus
   fName = Forms!клиенты!Имя.Text
   'Объедините части Фамилии и Имени 
   'для создания Кода клиента.
   cID = UCase(Left(lName, 3) & Left(fName, 2))
   'Не храните Код, если только это не 5 знаков. 
   '(Это означает, что оба имени заполнены.)
   If Len(cID) = 5 Then
   	Forms!клиенты!КодКлиента.SetFocus
   	'Не изменяйте Код, если он уже был введен. 
   	'Возможно, это было сделано вручную.
   	If Forms!клиенты!КодКлиента.Text = "" Then
   		Forms!клиенты!КодКлиента = cID
   	End If
   End If
   	'Активизировать поле ввода Адреса. 
   Forms!клиенты!Адрес.SetFocus

   Важно. Строки, начинающиеся с кавычки, являются комментариями (пояснениями) к следующему за ними фрагменту программы. В редакторе Visual Basic комментарии отображаются зеленым цветом.
8. Сохраните файл, щелкните на кнопке View Microsoft Access, чтобы вернуться в окно Access, и закройте окно Свойства (Properties).
9. В режиме формы, если нужно, измените размер окна. Затем на панели перехода щелкните на кнопке Новая запись (New Record), чтобы создать новую запись.
10. Нажмите на клавишу (Tab), чтобы переместить курсор в поле Имя, введите Джим, нажмите на клавишу (Tab), чтобы перейти в поле Фамилия, введите Патерсон и снова нажмите на клавишу (Tab). Если вы не сделали ошибки при вводе VBA-программы, в поле КодКлиента появится значение ПАТДЖ.
11. Измените имя или фамилию клиента. Обратите внимание, что значение в поле КодКлиента не меняется даже при изменении имен, на основании которых оно образовано.
12. Нажмите на клавишу (Esc), чтобы очистить поля, и попытайтесь вначале ввести фамилию, а потом имя. Значение КодКлиента не будет сформировано, поскольку подобная ситуация не предусмотрена в VBA-программе. Чтобы обеспечить создание кода клиента независимо от последовательности заполнения полей формы, нужно написать аналогичную процедуру для поля Имя или написать одну процедуру, обрабатывающую событие После обновления (After Update) для обоих полей. Такая процедура содержится в базе данных, которая используется в следующем упражнении, и при желании ее можно просмотреть.
13. Нажмите на клавишу (Esc), чтобы очистить поля, а затем закройте форму Клиенты и базу данных.
14. Нажмите на клавиши (Alt) + (Tab), чтобы переключиться в редактор VBA, и закройте его.