End Sub. If rstSpisok.NoMatch Then

FrmStat.Show

End Sub

FrmPrint.Show

End Sub

Wend

FormRefresh

End If

Exit Sub

If rstSpisok.NoMatch Then

FormRefresh

End If

Exit Sub

If rstSpisok.NoMatch Then

Dim v As Variant

Dim strFind As String

End Sub

End

Private Sub mnuPoiskFam_Click()

strFind = InputBox("Введите фамилию для поиска:", "Поиск", "")

If strFind = "" Then Exit Sub

rstSpisok.FindFirst «Familie Like '» + strFind + «*'»

MsgBox ("Искомое значение не найдено!")

v = MsgBox("Значение найдено, продолжить поиск с тем же критерием?", vbYesNo, "Внимание!")

While v = vbYes

rstSpisok.FindNext «Familie Like '» + strFind + «*'»

MsgBox ("Искомое значение не найдено!")

v = MsgBox("Значение найдено, продолжить поиск с тем же критерием?", vbYesNo, "Внимание!")

Private Sub mnuRepSpisok_Click()

Private Sub mnuStat_Click()

Реализуйте самостоятельно поиск по имени студента. Для этого необходимо создать процедуру аналогичную процедуре с именем Sub mnuPoiskFam_Click. Новая процедура должна обрабатывать событие выбора пункта меню «Поиск -> по имени». Изменения необходимо внести в команды FindFirst и FindNext.

Запрограммируем работу отчетов. Для формирования списка студентов используем самый простой вариант, предлагаемый VB, для вывода информации на принтер. В этом случае не используется специальных дизайнеров, не предоставляется возможности предварительного просмотра документа, нет графических возможностей. Для печати используется прямая отправка текстовой информации в печатающее устройство. Такой вариант организации печати удобно использовать для вывода на принтер большого количества текстовой информации (например, номенклатуры товаров магазина и данных об остатках), к которой не предъявляется специальных требований по оформлению. Для формирования отчетов в соответствии с определенными формами или с применением графического оформления, более предпочтительно использовать дизайнеры отчетов (см. предыдущую лабораторную работу).

Создайте новую форму с именем frmPrint.

Разместите на ней объекты:

ListBox (lstPrint), CommandButton (cmиPrint и cmbCancel).

Добавьте следующий программный код для формы frmPrint:

Дата добавления: 2014-12-27