Пример программы поиска и удаления записей

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

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

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

Sub удаление()

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

Dim p As String * 20, признак As Boolean, удаление As Byte

Set База = CurrentDb

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

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

p = InputBox("Введите фамилию", "Поиск и удаление")

If RTrim(p) = Empty Then Exit Sub

With Запись

Do Until Запись.EOF = True

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

признак = True

удаление = MsgBox(RTrim(![Фамилия].Value) & " "

& RTrim(![Имя]) & " " & RTrim(![Отчество]) _

& " " &![КодСпециальности] & "-" &![Курс] _

&![Группа], vbYesNoCancel + vbQuestion, _

"Удалить запись?")

Select Case удаление

Case vbYes

MsgBox RTrim(p) & " отчислен(а)!", vbCritical

.Delete

Case vbNo

MsgBox "Ура! Не отчислили!", vbExclamation

Case vbCancel

Exit Sub

End Select

End If

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

Loop

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

& RTrim(p) & " отсутствуют"

.Close

End With

End Sub