Операторы присваивания

Переменные могут использоваться только после присваивания им значений. Общий вид оператора присваивания следующий:

<имя переменной> = <выражение>

Например:

Х = 200*0,8/70

Y = “Петров Семен Иванович”

Z = Forms![Студенты]![ФИО]

Инструкция Dim только описывает переменную, указывая на объект какого типа она может сохранять ссылку. Для того, чтобы переменная содержала ссылку на объект, необходимо с помощью оператора Set присвоить этой переменной ссылку на объект соответствующего типа.

Set <имя объектной переменной> = [New] <объектное выражение> | Nothing

Простейшее объектное выражение – имя объекта. New используется для создания нового экземпляра объекта. Nothing используется для разрыва соответствия объектной переменной с каким-либо определенным объектом.

Примеры.

Set bd = CurrentDB()

Объектной переменной bd присваивается значение текущей базы данных.

Set tab1 = bd.CreateTableDef(“Студенты”)

В текущей базе данных bd создается таблица с именем Студенты с использованием метода CreateTableDef. В переменной tab1 сохраняется ссылка на созданную таблицу. Здесь объектным выражением является метод CreateTableDef, примененный к объекту bd.

Set pol1 = tab1.CreateField(“ФИО”, dbText, 50)

Оператор создает поле и присваивает ссылку на него объектной переменной.

После описания объектной переменной и присвоения ей значения эта переменная может быть использована вместо прямых ссылок на объекты и данные.

Примеры.

Ссылка на текущую базу данных:

Dim dbs As DAO.Database

Set dbs = CurrentDB

Открытие базы данных и установка ссылки на нее:

Set dbs = OpenDatabase(“PRIBOR.mdb”)

Открытие таблицы типа Recordset:

Dim rst As DAO.Recordset

Set rst = dbs.OpenRecordset(“TRANZmm”,dbOpenTable)