0. Описание констант

Оператор описания констант имеет следующий общий вид:

[Public | Private] CONST <имя> As <тип> = <значение>

По умолчанию создается константа вида Private. Опция Public означает создание глобальной константы. Опция Private означает создание локальной константы. Константы имеют те же типы, что и переменные, не используется только тип Object.

Примеры.

Public Const Tex1 As String = “Воронеж”

Const Con1 As Integer = 100, Con2 As Currency = 200

Помимо констант, создаваемых пользователем с помощью инструкции Const, в программах используются встроенные и системные константы.

Встроенные константы – это константы, определенные в системе. Первые две буквы в имени встроенной константы являются префиксом, определяющим библиотеку объектов, в которой описана эта константа.

Константы из библиотеки Access имеют префикс “ac”. Например: acForm, acTable, acQuery.

Константы из библиотеки объектов доступа к данным имеют префикс “db”. Например: dbOpenTable, dbReadOnly, dbRecordNew.

Константы из библиотеки VBA имеют префикс “vb”. Например: vbOK, vbNO.

Примеры системных констант – True, False, Null.

0. Операторы управления выполнением программ

Оператор безусловного перехода:

GOTO <метка> | <номер строки>

Метка начинается с буквы и может содержать до 40 символов. Метка пишется перед оператором через двоеточие.

Оператор используется для обработки ошибок.

Оператор условного перехода:

If <условие> Then <оператор 1> [Else <оператор 2>]

Другой вариант записи оператора:

If <условие 1> Then

<операторы>

[ElseIf <условие 2> Then

<операторы>…]

[Else

<операторы>]

End If

Если ни одно из условий ElseIf не выполняется (или условий ElseIf нет), то выполняются следующие инструкции Else.

Операторы организации цикла:

Do While <условие>

<операторы>

[Exit Do]

[<операторы>]

Loop

Если условие истинно, то выполняются операторы цикла, в противном случае происходит выход из цикла. Опция Exit Do означает принудительный выход из цикла.

Do Until <условие>

<операторы>

[Exit Do]

[<операторы>]

Loop

Если условие ложно, то выполняются операторы цикла, в противном случае происходит выход из цикла.

Do

<операторы>

[Exit Do]

[<операторы>]

Loop While <условие>

Если условие истинно, то выполняются операторы цикла, в противном случае происходит выход из цикла.

Do

<операторы>

[Exit Do]

[<операторы>]

Loop Until <условие>

Если условие ложно, то выполняются операторы цикла, в противном случае происходит выход из цикла.

Допускается использование вложенных циклов.

0. Использование объекта Recordset

Объект Recordset используется для манипулирования записями в DAO.

Основные методы объекта Recordset.

AddNew – создает новую запись в обновляемом объекте Recordset (синтаксис - набор_записей.AddNew набор_записей=значение набор_записей.Update);

Delete – удаляет текущую запись в обновляемом объекте Recordset (синтаксис – набор_записей.Delete);

Edit – копирует текущую запись из обновляемого объекта Recordset в буфер копирования для последующего изменения (синтаксис – набор_записей.Edit);

MoveFirst, MoveLast, MoveNext, MovePrevious – перемещает указатель текущей записи в объекте Recordset на первую, последнюю, следующую или предыдущую запись (синтаксис – набор_записей.MoveFirst).

После изменения текущей записи следует обязательно сохранить изменения с помощью метода Update;

OpenRecordset – создает новый объект Recordset.

Например: Set rst = db.OpenRecordset(“имя таблицы”, dbOpenTable);

Seek – индексированный поиск (синтаксис – набор_записей.Seek "операция сравнения” , <список переменных>). Операции сравнения могут быть следующими <, <=, >, >=, =.

С помощью свойства NoMatch проверяется, был ли успешным поиск. Если запись обнаружена, то свойство дает значение False, если запись не найдена, то свойство имеет значение True.

Update – сохраняет содержимое буфера в текущей записи (синтаксис – набор_записей.Update);

RecordCount – свойство набора записей; определяет количество записей в наборе (предварительно выполняют набор_записей.MoveLast);

BOF, EOF – свойства набора записей, которые используются для проверки начальной и конечной границ объекта Recordset.