- •Лработы к курсу бд "Базы данных и знаний" лабораторная работа ╧ 1 Введение в субд Access
- •1. Введение
- •2. Порядок выполнения лабораторных работ
- •2.1. Подготовка к выполнению
- •2.2. Выполнение задания.
- •3. Задание.
- •3.1. Выполнение задания
- •3.1.7. Завершение работы с бд.
- •3.2. Пример выполнения лабораторной работы вариант 30.
- •4. Пример выполнения задания (вариант 30).
- •Пример выполнения задания (вариант 30).
- •I Создать простой отчет, содержащий:
- •II Создать сложный отчет, содержащий:
- •Пример выполнения задания (вариант 30).
- •Работа с макросами.
- •1.Сущность макросов.
- •2. Создание и выполнение макросов.
- •2.1. Создание макросов.
- •2.2. Сохранение макросов.
- •2.3. Выполнение макроса.
- •3. Редактирование макросов
- •4. Копирование макросов.
- •Средства защиты данных.
- •1. Общие свойства
- •2. Рабочие группы.
- •2.1. Изменение файла рабочей группы.
- •3. Ограничение доступа в Microsoft Access 97.
- •4. Учетные записи.
- •5. Изменение прав владения.
- •6. Присвоение и удаление прав доступа.
- •7. Шифрование бд.
- •1.Что такое Visual Basic for Applications.
- •2. Создание кода vba с помощью мастеров элементов управления.
- •3. Модули.
- •4. Процедуры.
- •4.1. Создание процедур обработки событий.
- •4.2. Редактирование в окне модуля
- •4.3. Аргументы процедуры.
- •5. Основные операторы vba.
- •5.1. Переменные и оператор присваивания.
- •5.2. Условные операторы.
- •5.3. Операторы цикла.
5.2. Условные операторы.
В языке VBA, как и в других языках программирования, основными элементами, управляющими ходом выполнения процедуры, являются условные операторы. Наиболее простой из них - оператор If . . . Then:
If Полина = "Ж" Then
Поздравление = "С 8 марта!"
End if
Если условие, заданное выражением между ключевыми словами If и Then выполняется, соблюдаются инструкции внутри блока, ограниченного ключевыми словами Then и End if. Иначе операторы между ключевыми словами не выполняются, а ACCESS перейдет к обработке оператора, который следует за ключевыми слова End if. В случае необходимости произвести два различных действия (одно при соблюдении условия, а второе - нет), надлежит воспользоаться полной формой оператора If:
If выражение Then
Оператор1
Else
Оператор2
End if
Если условие соблюдается, выполняется Оператор1 (или группа операторов, расположенных между ключевыми словами Then и Else, а если не соблюдается - Оператор2 (или группа операторов, расположенных между ключевыми словами Else и End if.
Однако, не всегда возможны два варианта решения. Учитывая это, VBA предоставляет в распоряжение пользователей оператор Select Case, предназначенный для выбора одного из множеств вариантов решений:
Select Case Город
Case "Киев"
Код_МГТС = "044"
Case "Москва"
Код_МГТС = "095"
Case "Запорожье"
Код_МГТС = "061-2"
Case Else
Print "Я не знаю такого города!"
End Select
При выполнении этого оператора проверяется значение переменной Город. В зависимости от результата проверки переменной Код_МГТС присваивается телефонной код некоторого города. Если значение переменной Город не совпадает ни с одним из значений, перечисленных в строках с ключевым словом Case, производится действие, указанной между ключевыми словами Case Else и End Select.
5.3. Операторы цикла.
Цикл используется для многократного повторения одной или нескольких инструкций. Количество повторений цикла связано с некоторым условием. В VBA предусмотрено несколько разновидностей циклов. Простейшим примером циклической конструкции является так называемый цикл по счетчику.
For Счетчик = 1 To 10
Print Счетчик
Next Счетчик
Цикл по счетчику ограничивается ключевыми словами For и Next. После ключевого слова For указывается имя переменной, которая будет выполнять роль счетчика, после знака равенства - начальное значение счетчика, а после ключевого слова To - конечное значение счетчика.
Еще одна разновидность цикла - While-цикл. Условие выполнения команд внутри такого цикла определяется некоторым условным оператором:
Do While Счетчик <> 10
Loop
Разновидностью цикла Do является Until-цикл, который выполняется, пока условное выражение ложно:
Do Until Счетчик=10
Счетчик=Счетчик+1
Loop
