Лекция: Пример программы поиска

Требуется создать процедуру поиска записей в таблице Студенты учебной базы данных. Поиск осуществляется по фамилии студента, значение которой вводится с клавиатуры. Если записи найдены, то выводится номер найденной записи с указанием фамилии, имени и отчества студента. Если подобных записей нет, то выводится сообщение об этом.

'Последовательный поиск по фамилии и вывод на экран

‘Программа не проверяет корректность введенной с клавиатуры фамилии

Sub Поиск()

Dim База, Запись As Variant

Dim p As String * 20, i As Integer, признак As Boolean

Set База = CurrentDb

Set Запись = База.OpenRecordSet(«Студенты»)

признак = False

'признак характеризует хотя бы одну найденную запись

p = InputBox(«Введите фамилию», «Поиск», «Шариков»)

If RTrim(p) = Empty Then Exit Sub

With Запись

Do Until Запись.EOF = True 'Свойство «End of File» — признак конца файла

If RTrim(![Фамилия].Value) = RTrim(p) Then

i = i + 1

признак = True

MsgBox str(i) & "-я запись. Студент " & ![Фамилия].Value _ & " " & ![Имя].Value & " " & [Отчество].Value

End If

.MoveNext 'метод перехода к следующей записи

Loop

If признак = False Then MsgBox «Записи с фамилией » _

& p & «отсутствуют»

.Close

End With

End Sub