Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лекция по Ms Access.doc
Скачиваний:
92
Добавлен:
19.05.2015
Размер:
1.86 Mб
Скачать

Глава 16. Объект DoCmd и его методы

DoCmd – это объект, доступный только в VBA.

Он реализует набор команд, которые существуют в Access и ориентированы на часто выполняемые операции, например, открыть-закрыть форму, открыть запрос и т.д.

Метод

Описание

OpenReport

Открыть отчёт. Синтаксис: OpenReport “имя_отчёта”

OpenTable

Открыть таблицу. Синтаксис: OpenTable “имя_таблицы”

OpenForm

OpenQuery

GotoControl

Открыть форму. Синтаксис: OpenForm “имя_формы”

Открыть запрос. Синтаксис: OpenQuery “имя_запроса”

Передаёт фокус элементу управления

Close

Закрыть активное окно

GotoRecord

Передаёт фокус следующей записи в активной форме или таблице.

Beep

Cлужит для издания звука.

Пример:

Открыть таблицу “Товары” по нажатию кнопки в форме.

Алгоритм

  1. В конструкторе таблиц создать структуру таблицу “Товары” с полями: товар, цена, поставщик, дата_поставки.

2.Заполнить таблицу данными.

3. В конструкторе форм создать форму с кнопкой:

  1. По событию «Нажатие кнопки» написать процедуру:

Private Sub Кнопка0_Click()

DoCmd.OpenTable "Товары"

End Sub

  1. Результат работы:

Пример:

Даны две формы. Необходимо из первой формы вызвать вторую форму и закрыть первую.

При выполнении этой задачи будем использовать форму с именем

«Товары», созданную в примере выше, в качестве второй формы.

Первую форму с одной кнопкой создадим в конструкторе

и напишем процедуру:

Private Sub Кнопка0_Click()

DoCmd.OpenForm "Товары" ‘Открываем форму «Товары»

DoCmd.Close acForm, "Форма2" ‘Закрываем первую форму

End Sub

После нажатия кнопки с подписью “Открыть форму “ на экране появится форма «Товары», а форма2 будет закрыта.

Пример:

Закрыть все открытые формы:

Private Sub Кнопка0_Click()

Dim frm As Form

Set frm = Forms!Форма6

DoCmd.OpenForm "Форма1"

DoCmd.OpenForm "Форма2"

DoCmd.OpenForm "Редактор"

For Each frm In Forms

DoCmd.Close acForm, frm.name, acSaveYes

Next

End Sub

Глава 17. Объект Recordset

Объект Recordset нужен всегда, когда необходим доступ к записям таблицы.