Работа в Microsoft Access XP


         

На вкладке представлены события, на




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



  • увеличить изображение

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

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

  • Введите следующие строки между операторами 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 комментарии отображаются зеленым цветом.
  • Сохраните файл, щелкните на кнопке View Microsoft Access
    , чтобы вернуться в окно Access, и закройте окно Свойства (Properties).
  • В режиме формы, если нужно, измените размер окна. Затем на панели перехода щелкните на кнопке Новая запись (New Record)
    , чтобы создать новую запись.
  • Нажмите на клавишу (Tab), чтобы переместить курсор в поле Имя, введите Джим, нажмите на клавишу (Tab), чтобы перейти в поле Фамилия, введите Патерсон и снова нажмите на клавишу (Tab). Если вы не сделали ошибки при вводе VBA-программы, в поле КодКлиента появится значение ПАТДЖ.
  • Измените имя или фамилию клиента. Обратите внимание, что значение в поле КодКлиента не меняется даже при изменении имен, на основании которых оно образовано.
  • Нажмите на клавишу (Esc), чтобы очистить поля, и попытайтесь вначале ввести фамилию, а потом имя. Значение КодКлиента не будет сформировано, поскольку подобная ситуация не предусмотрена в VBA-программе. Чтобы обеспечить создание кода клиента независимо от последовательности заполнения полей формы, нужно написать аналогичную процедуру для поля Имя или написать одну процедуру, обрабатывающую событие После обновления (After Update) для обоих полей. Такая процедура содержится в базе данных, которая используется в следующем упражнении, и при желании ее можно просмотреть.
  • Нажмите на клавишу (Esc), чтобы очистить поля, а затем закройте форму Клиенты и базу данных.
  • Нажмите на клавиши (Alt) + (Tab), чтобы переключиться в редактор VBA, и закройте его.



  • Содержание  Назад  Вперед