Разработка базы данных библиотечного фонда города, страница 12

Forms![Просмотр каталогов]!Поле30 = Д.Caption

End Sub

Private Sub Е_Click()

Forms![Просмотр каталогов]!Поле30 = Е.Caption

End Sub

Private Sub Ж_Click()

Forms![Просмотр каталогов]!Поле30 = Ж.Caption

End Sub

Private Sub З_Click()

Forms![Просмотр каталогов]!Поле30 = З.Caption

End Sub

Private Sub И_Click()

Forms![Просмотр каталогов]!Поле30 = И.Caption

End Sub

Private Sub К_Click()

Forms![Просмотр каталогов]!Поле30 = К.Caption

End Sub

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

        If (Me.Группа32 = 1) Then

        MsgBox "По автору"

        DoCmd.OpenForm "Просто книги", acFormDS, "Сортировать по автору", "Avtor Like Forms![Просмотр каталогов]!буква & ""*""", acFormReadOnly, acDialog

        End If

        If (Me.Группа32 = 2) Then

        MsgBox "По названию"

        DoCmd.OpenForm "Просто книги", acFormDS, "Сортировать по названию", "Nazvanie Like Forms![Просмотр каталогов]!буква & ""*""", acFormReadOnly, acDialog

        End If

End Sub

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

On Error GoTo Кнопка40_Click_Err

Dim Uslov As String

Uslov = "[kod_oblasti_znania]=[Forms]![Просмотр каталогов]![ПолеСоСписком41]"

        DoCmd.OpenForm "Просто книги", acFormDS, "Сортировать по названию", Uslov, acReadOnly, acDialog

Кнопка40_Click_Exit:

    Exit Sub

Кнопка40_Click_Err:

    MsgBox Error$

    Resume Кнопка40_Click_Exit

End Sub

Private Sub Л_Click()

Forms![Просмотр каталогов]!Поле30 = Л.Caption

End Sub

Private Sub М_Click()

Forms![Просмотр каталогов]!Поле30 = М.Caption

End Sub

Private Sub Н_Click()

Forms![Просмотр каталогов]!Поле30 = Н.Caption

End Sub

Private Sub О_Click()

Forms![Просмотр каталогов]!Поле30 = О.Caption

End Sub

Private Sub П_Click()

Forms![Просмотр каталогов]!Поле30 = П.Caption

End Sub

Private Sub Р_Click()

Forms![Просмотр каталогов]!Поле30 = Р.Caption

End Sub

Private Sub С_Click()

Forms![Просмотр каталогов]!Поле30 = С.Caption

End Sub

Private Sub Т_Click()

Forms![Просмотр каталогов]!Поле30 = Т.Caption

End Sub

Private Sub У_Click()

Forms![Просмотр каталогов]!Поле30 = У.Caption

End Sub

Private Sub Ф_Click()

Forms![Просмотр каталогов]!Поле30 = Ф.Caption

End Sub

Private Sub Х_Click()

Forms![Просмотр каталогов]!Поле30 = Х.Caption

End Sub

Private Sub Ц_Click()

Forms![Просмотр каталогов]!Поле30 = Ц.Caption

End Sub

Private Sub Ч_Click()

Forms![Просмотр каталогов]!Поле30 = Ч.Caption

End Sub

Private Sub Ш_Click()

Forms![Просмотр каталогов]!Поле30 = Ш.Caption

End Sub

Private Sub Щ_Click()

Forms![Просмотр каталогов]!Поле30 = Щ.Caption

End Sub

Private Sub Э_Click()

Forms![Просмотр каталогов]!Поле30 = Э.Caption

End Sub

Private Sub Ю_Click()

Forms![Просмотр каталогов]!Поле30 = Ю.Caption

End Sub

Private Sub Я_Click()

Forms![Просмотр каталогов]!Поле30 = Я.Caption

End Sub

При нажатии на кнопку «Список библиотекарей в указанном читальном зале некоторой библиотеки» происходит открытие диалогового окна, в которое необходимо ввести значение номер интересующей библиотеки (1,2,3)  (Рис 27).

Рис 27 диалоговое окно

После ввода номера интересующей библиотеки происходит открытие диалогового окна, в которое необходимо ввести значение номера зала интересующей библиотеки (1 – 10) (Рис 28).

Рис 28 диалоговое окно

После ввода номера зала интересующей библиотеки происходит открытие таблицы с интересующей информацией (Рис 29).

Рис 29 Таблица отображающая список библиотекарей в указанном читальном зале некоторой библиотеки

Обработчик события нажатия кнопки:

При нажатии кнопки происходит открытие макроса «Список библиотекарей в читальном зале некоторой библиотеки» (Рис 30)