Самостоятельное задание и контрольные вопросы

1. Сконструируйте отчеты для личной базы данных (см. Задание №2 на самостоятельную работу).

2. Представьте их преподавателю.

3. Назовите основные объекты созданных Вами отчетов и их свойства.

4. Какие выражения были использованы Вами при создании объектов отчетов в личной базе данных? Что означают эти выражения?

10.5. Субд ms Access. Автоматизация приложения средствами макросов и модулей vba

Цель работы – приобретение практических навыков создания макросов и модулей в СУБД MS Access и использования языка программирования Visual Basic for Application (VBA) для решения финансово-экономических задач средствами СУБД MS Access.

После выполнения работы студент должен знать основные понятия объектов реляционной базы данных, характеристики макросов и модулей и уметь создавать макросы и модули и использовать их для решения финансово-экономических задач средствами СУБД MS Access.

Справочная информация

Макросы и модули используются для автоматизации процесса обработки базы данных.

Макрос – это набор стандартных команд СУБД MS Access, которые называются макрокомандами (см. Справочная система СУБД MS Access  Общие сведения о макросах). Полный перечень макрокоманд можно увидеть, воспользовавшись командой (СозданиеМакрос). Макрокоманды могут содержать аргументы, детализирующие действия этих макрокоманд.

Модуль — это набор описаний, процедур и функций на языке Visual Basic for Application, собранных в одну программную единицу. Различают стандартные модули, являющиеся объектами базы данных, модули форм или отчетов, являющиеся частью этих объектов, и модули классов. Более подробно модули будут рассмотрены позднее.

Обучающее задание

1. Загрузите СУБД MS Access, откройте Учебную базу данных, активизируйте объект Модули (СозданиеМодуль).

2. Изучите с преподавателем среду VBA.

3. В окне программы введите код:

Public Function Password()

Dim p As String

p = InputBox("Ваше имя?", "Введите пароль")

If p = "Иван Иванович" Then 'Введите свое имя

Password=True

MsgBox ("Здравствуйте, уважаемый Иван Иванович!")

Else

MsgBox ("Мы с Вами не знакомы! До свидания!")

Password=False

DoCmd.Quit

End If

End Function

4. Откомпилируйте созданную функцию (DebugCompile) и проверьте ее работоспособность, запустив на выполнение (RunRun Sub/UserForm или F5).

5. В случае наличия ошибок отладьте модуль.

6. Сохраните созданный модуль под именем «Пароль» (FileSave) и перейдите в MS Access.

7. Активизируйте объект Макросы (СозданиеМакрос) и создайте макрос автоматической загрузки под именем Autoexec, для чего введите следующие макрокоманды (см. табл. 2):

Таблица 2. Перечень макрокоманд

Условие	Макрокоманда	Имя аргумента	Значение аргумента
Password()=Истина	ОткрытьФорму	Имя формы Режим	Заставка Форма
…	ВыделитьОбъект	Тип объекта Имя объекта	Форма Заставка
…	Развернуть

8. Сохраните макрос под именем «Autoexec» и закройте окно конструктора макросов.

9. Закройте и снова загрузите СУБД MS Access, открыв Учебную базу данных.

10. Прокомментируйте результаты работы с приложением.