End Sub. If Form.Recordset.NoMatch Then

Wend

End If

Exit Sub

If Form.Recordset.NoMatch Then

End If

Exit Sub

If Form.Recordset.NoMatch Then

TxtFind.SetFocus

Dim byt As Variant

Dim strFind As String

End Sub

Form.Requery

TxtFiltr.SetFocus

Dim strSQL As String

strSQL = txtFiltr.Text

Form.RecordSource = «SELECT Список.Код, Список.Фамилия, Список.Имя, Список.Отчество, Список.[Год рождения], Список.Школа, Список.Класс, Список.[Учебная группа], [личные данные].КодСтудента, [Личные данные].Адрес, [Личные данные].Телефон, [Личные данные].Word, [Личные данные].Exel, [Личные данные].Access FROM Список INNER JOIN [Личные данные] ON Список.Код=[Личные данные].КодСтудента Where Список.Фамилия like '» + strSQL + «*';»

• Закройте редактор программного кода и вернитесь в режим конструктора формы. Проверьте работу сделанных изменений, выполните Вид – Режим формы. Введите в текстовое поле букву «В» и нажмите Применить. Проверьте, что теперь в форме можно пролистать только студентов у которых фамилия начинается с буквы «В».

• Мы реализовали фильтр с помощью SQL запроса. Условие отбора задается после ключевого слова Where. Попробуйте изменить запрос таким образом, чтобы фильтр задавался для значений имен студентов.

• Сохраните сделанные изменения на форме и закройте ее.

Задание 7. Создайте поиск значения в форме с помощью команд VBA.

Организация поиска значений с помощью стандартных инструментов была рассмотрена ранее. В этом задании Вам предлагается рассмотреть какие еще функциональные расширения может предоставить использование языка VBA.

Порядок работы:

• Проделайте действия аналогичные описанным выше, до момента задания программного кода для обработки события нажатия кнопки. В качестве подписи для текстового поля задайте: «Условие для поиска студента по фамилии». Текстовому полю и кнопке задайте имена txtFind и cmbFind соответственно.

• Для обработки события нажатие кнопки введите программный код:

Private Sub cmbFind_Click()

strFind = txtFind.Text

Form.Recordset.FindFirst «Список.Фамилия = '» + strFind + «'»

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

byt = MsgBox("Продолжить поиск?", vbYesNo)

While byt = vbYes

Form.Recordset.FindNext «Список.Фамилия = '» + strFind + «'»

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

byt = MsgBox("Продолжить поиск?", vbYesNo)

• Сохраните сделанные изменения, закройте редактор VBA, и запустите режим формы. Проверьте работу кнопки поиска.

• Созданный обработчик производит поиск студента только по условию полного совпадения введенного критерия со значением фамилии. Изменим его работу так, чтобы он производил поиск по первым буквам фамилии.

• Измените строки, содержащие команды поиска (FindFirst и FindNext) следующим образом:

Form.Recordset.FindFirst «Список.Фамилия like '» + strFind + «* '»

и

Form.Recordset.FindNext «Список.Фамилия like '» + strFind + «* '»

• Сохраните сделанные изменения, закройте редактор VBA, и запустите режим формы. Проверьте работу кнопки поиска.

• Измените программный код таким образом, чтобы поиск выполнялся по имени студентов. Для этого Вам необходимо заменить в приведенных выше строках наименование поля таблицы БД содержащего фамилии студентов, на другое, то по которому будет производиться поиск.

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