FROM тблМестоРасположения INNER JOIN ((тблКнига INNER JOIN тблРасположение ON тблКнига.[Код книги] = тблРасположение.[Код книги]) INNER JOIN (тблАвторы INNER JOIN тблСвязи ON тблАвторы.[Код автора] = тблСвязи.[Код автора]) ON тблКнига.[Код книги] = тблСвязи.[Код книги]) ON тблМестоРасположения.[Код отдела] = тблРасположение.[Код отдела]

Определяется порядок сортировки записей в запросе по полям «ФИО» и «Название книги» по возрастанию

ORDER BY [Фамилия] & " " & Left([Имя],1) & ". " & Left([Отчество],1) & ".", тблКнига.[Название книги];

4.4 Описание процедур и их параметров

Рассмотрим процедуру нажатия на кнопку «Добавление автора»:

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

On Error GoTo Err_Кнопка27_Click

Выделяем переменную под имя формы

Dim strdocname As String

Конкретизириум переменную

strdocname = "Добавление автора"

Открытие формы "Добавление автора" в режиме ввода данных.

DoCmd.OpenForm strdocname,,,, acAdd

Закрытие формы "Литературные произведения".

DoCmd.Close acForm, "Литературные произведения"

Делаем невидимой кнопку "Найти запись"

Forms![Добавление автора]!Кнопка25.Visible = False

Передача фокуса текстовому полю "Фамилия".

Forms![Добавление автора]!Фамилия.SetFocus

Exit_Кнопка27_Click:

Выход из процедуры

Exit Sub

Err_Кнопка27_Click:

В случае появления ошибки вывод на экран сообщения

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

5. Тестовый пример

Тестированию подвергается часть программного кода, отвечающая за добавление новой книги. Необходимо добавить в каталог следующую книгу:

Крылов И. А. «Басни», 78.56, дет. ч/з, басни, классическая литература, 1850 г., Просвещение, 2000 г., 75 стр.

Щелкаем мышью по кнопке «Добавить книгу», расположенную на форме «Литературные произведения». В появившейся форме «Добавление книги» вводим в текстовое окно «Шифр» библиотечный шифр книги – 78.56. При этом поле «Код книги» обновляется автоматически. Убеждаемся в том, что в выпадающем списке «Автор книги» отсутствует Крылов И. А. Добавим его в список с помощью кнопки «Добавить автора». Вводим в поля появившейся формы «Добавление автора» следующие значения: