событий

· Текст кода процедур обработки событий на языке VBA надо смотреть в меню Конструктор – Сервис – Посмотреть код. Код следующий:

'Листинг программы вывода фотографий при смене записей.

'Имена файлов фотографий указываются в таблице Анкеты
'в поле " Фото"

Option Compare Database

Option Explicit 'Имена переменных должны объявляться

Private Sub Form_AfterUpdate()

showImageFrame 'отображение фото(событие: смена записи)

End Sub

Private Sub Form_RecordExit(Cancel As Integer)

'При переходе между записями надпись ErrorMsg скрывается,

'чтобы избежать ненужного мелькания.

ErrorMsg.Visible = False

End Sub

Private Sub ImagePath_AfterUpdate()

'Отображает фото (событие: смена имени файла фото)

showImageFrame 'отображение фото

End Sub

Private Sub Form_Current()

'Если имеется фотография, она отображается в форме.

'Если файл-фото не существует, либо если поле пусто,

'надпись ErrorMsg выводит сообщение " Фото отсутствует".

On Error Resume Next

ErrorMsg.Visible = False

If Not IsNull(Me! [ImagePath]) Then 'если есть имя файла фото

showImageFrame 'вызов процедуры отображения фото

Else

hideImageFrame 'сокрытие рамки для фото

ErrorMsg.Caption = " Фото отсутствует" 'сообщение

ErrorMsg.Visible = True 'показать сообщение

End If

End Sub

Sub showErrorMessage()

'Выводит сообщение ErrorMsg, если файл фото недоступен

If Not IsNull(Me! [ImagePath]) Then

ErrorMsg.Visible = False

Else

ErrorMsg.Visible = True

End If

End Sub

Sub hideImageFrame()

Me! [ImageFrame].Visible = False 'Скрывает рамку для фото

End Sub

Sub showImageFrame()

'Выводит фото

Me! [ImageFrame].Picture = fName 'вставляет в рамку фото

Me! [ImageFrame].Visible = True 'показывает фото

End Sub

Private Function fName() As String

'Анализ полного пути файла фотографии.

'Файл фотографии размещается в текущей папке БД, либо

'в любой другой папке, в этом случае указывается полный путь.

'Имя файла записано в поле Фото таблицы Сотрудники,

'а в форме это поле обозначено ImagePath

'Если файл расположен в текущей папке, то к имени

'добавляется полный путь

Dim path As String

path = CurrentProject.path 'путь текущей папки БазыДанных

fName = Me! [ImagePath] 'путь, записанный в поле фото

If (InStr(1, fName, ": ") = 0) And (InStr(1, fName, " \\") = 0) Then

fName = path & " \" & fName

End If

End Function

· Сконструированная форма, которой присвоено имя Анкеты будет выглядеть следующим образом (рисунок 4.13):

Рисунок 4.13 ‒ Форма Анкеты

СПИСОК ЛИТЕРАТУРЫ

1. Когаловский М. Р. Перспективные технологии информационных систем / М. Р. Когаловский. – М.: ДМК Пресс; М: Компания АйТи, 2003. – 288 с.

2. Стандарт ISO/IEC 2382-1. Термины и определения стандарта ISO/IEC 2382-1 [Электронный ресурс]. – Режим доступа: https://www.standards.ru/document/3628811.aspx

3. Маглинец Ю. А. Анализ требований к автоматизированным информационным системам / Ю. А. Маглинец. – Бином, 2008.

4. Гурвиц Г. А. Microsoft Access 2010. Разработка приложений на реальном примере / Г. А. Гурвиц. – СПб.: БХВ-Петербург, 2010. – 496 с.

5. Грошев А. С. Информатика: учебник для вузов / А. С. Грошев. – Архангельск: АГТУ, 2010. – 470 с.

6. Грошев А. С. Базы данных: учеб.пособие / А. С. Грошев. – Архангельск: АГТУ, 2005. – 111 с.

Учебное издание

Галиев Карим Сулейманович
Печурина Елена Каримовна

Базы данных и СУБД

Учебно-методическое пособие

Подписано в печать ___.___.2016. Формат 60 × 84 ¹/₁₆.

Усл. печ. л. – 4, 75. Уч.-изд. л. – 3, 45.

Тираж 100 экз. Заказ № ______

Типография Кубанского государственного
аграрного университета.

350044, г. Краснодар, ул. Калинина, 13