8.2 Реализация алгоритмов средствами Visual Basic

Следующий алгоритм предназначен для перехода на форму Адреса_клиентов после нажатия кнопки Просмотр всех читателей на главной форме:

Private Sub ВсеЧитатели_Click()

On Error GoTo Err_ВсеЧитатели_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1040) & ChrW(1076) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1072) & ChrW(95) & ChrW(1082) & ChrW(1083) & ChrW(1080) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) & ChrW(1074)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ВсеЧитатели_Click:

Exit Sub

Err_ВсеЧитатели_Click:

MsgBox Err.Description

Resume Exit_ВсеЧитатели_Click

End Sub

Кроме того, в автоматизированной системе “Библиотека” присутствуют и другие события, написанные средствами Visual Basic:

Событие, позволяющее подсчитать пеню читателя.

Событие, предназначенное для открытия формы Поиск_книги после нажатия кнопки Поиск_книги.

Событие, которое происходит после выбора читателем пяти критериев при поиске книги. Оно позволяет вывести на экран только те критерии, которые выбрал пользователь и после производить действия с ними.

Событие, которое происходит при нажатии читателем при выборе понравившейся ему книги.

Событие, которое скрывает все поля для ввода критериев при запуске формы Поиск_книги или повторном поиске книги.