- •Лабораторная работа № 5.
- •Задание
- •Основные сведения Основные понятия Visual Basic для приложений
- •Модули форм и отчетов
- •Объекты базы данных в vba
- •Объект Recordset
- •Ссылки на библиотеки объектов
- •События
- •Соглашения по синтаксису
- •Ссылки на формы, отчеты, их свойства и элементы управления
- •Ссылки на подчиненные формы и отчеты
- •Использование функции dLookup
- •Внутренние константы
- •Технология работы Создание процедуры для проверки правильности вводимой даты
- •Создать функцию для автоматического установления скидки.
- •Создать процедуры для контроля количества товаров
- •Создать процедуру для добавления записи в таблицу
- •Создать процедуру для удаления записи из таблицы
- •Создание процедуры поиска заказчика из Омска
- •MsgBox "Нет клиентов из Омска!"
- •Создать функцию для копирования цены из поля таблицы в поле формы
- •Создание процедуры подсчета числа заказов на определенную дату
- •Создание процедуры возврата в окно базы данных
- •Создание процедуры обработки события отсутствия в списке
- •Создать процедуры обработки событий для отбора данных при открытии отчета
- •Содержание отчета
Создать процедуры обработки событий для отбора данных при открытии отчета
Создайте простую модальную форму Диалог следующего содержания :
Для кнопок Просмотр отчета и Отмена напишите процедуры:
Private Sub Отмена_Click()
DoCmd.Close
End Sub
Private Sub Просмотр_отчета_Click()
Me.Visible = False
End Sub
Откройте ОтчетОКлиентах в режиме конструктора.
Откройте запрос – источник записей отчета.
В строке Условие отбора поля ДатаРазмещения введите условие:
Between Forms![Диалог]![С какой даты] And Forms![Диалог]![По какую дату]
6. В заголовок отчета добавьте поля и надписи:
Рис.6.4.
Отчет о клиентах.
Для открытия и закрытия отчета создайте процедуры:
Private Sub Report_Close()
Dim strDocName As String
strDocName = "Диалог"
DoCmd.Close acForm, strDocName
End Sub
Private Sub Report_Open()
Dim strDocName As String
strDocName = "Диалог"
DoCmd.OpenForm strDocName, , , , , acDialog
End Sub
8. Откройте отчет в режиме предварительного просмотра и проверьте правильность выбранных данных.
Содержание отчета
Тема лабораторной работы.
Цель лабораторной работы.
Результаты работы программ.