Курсовая работа: Создание базы данных аэропорта

dbChangeProperty = False – Возвращаем результат при ошибке

Set dbs = CurrentDb – Выбираем базу

dbs.Properties(strName) = varValue – Присваиваем значение

dbChangeProperty = True – Возвращаем результат

Exit Function – Выходим из программы

999:If Err = 3270 Then – Свойство не найдено

Set prp = dbs.CreateProperty(strName, varType, varValue) – Создаемсвойство

dbs.Properties.Append prp – Добавляемсвойство

Err.Clear – Очищаемпотокотошибки

Resume Next – Возвращаемся к следующему оператору

End If

Err.Clear – Очищаем от незнакомой ошибки

End Function

Список использованной литературы

1. Информатика. Базовый курс /Симонович С.В. и др. - СПб: Издательство «Питер», 2000. – 640с.

2. Информатика. Учебное пособие /Под ред. В.Г. Кирия. – Иркутск: ИрГТУ,1998 часть 2. – 382с.

3. Информатика. Учебное пособие /Ломтадзе В.В., Шишкина Л.П. – Иркутск: ИрГТУ, 1999. – 116с.

Приложение №1

Структура формы «Билет»

Приложение №2

Структура запроса «№ билета запрос»

Приложение №3

Внешний вид формы «Пассажиры»

Приложение №4

Внешний вид отчета «Пассажиры Запрос1»

Приложение №5

Структура макроса «открытие запроса рейс»

Приложение №6