Лекция: Пример программы поиска и удаления записей
Требуется создать процедуру поиска и удаления записей в таблице Студенты учебной базы данных. Поиск осуществляется по фамилии студента, значение которой вводится с клавиатуры. Если записи найдены, то выводится фамилия, имя, отчество студента и номер группы, после чего спрашивается разрешение пользователя на удаление этой записи. Если подобных записей нет, то выводится сообщение об этом.
'Последовательный поиск по фамилии и удаление
'Программа не проверяет корректность введенной с клавиатуры 'фамилии
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