MsgBox "Книг такого автора в бібліотеці немає"

End If

End Sub

• Update - зберігає вставки і зміни, зроблені в об'єкті Recordset за допомогою методів AddNew і Edit.

4.2 Властивості об'єкта Recordset

• BOF - повертає True, якщо покажчик поточного запису розташований перед першим записом набору записів, і значення False, якщо покажчик поточного запису розташований на першому записі набору або на будь-якому записі після.

• EOF - повертає True, якщо покажчик поточного запису розташований після останнього запису набору, і значення False, якщо покажчик поточного запису розташований на останньому запису набору або на будь-якому запису перед ним.

• Bookmark - встановлює або повертає закладання, що однозначно визначає поточний запис в об'єкті Recordset. Звичайно використовується для повернення в об'єкт Recordset на визначене місце, без вказівки визначеної адреси запису.

• NoMatch - повертає значення : True, якщо потрібний запис не знайдений, і False у противному випадку.

• RecordCount - повертає число записів, до яких був здійснений доступ в об'єкті Recordset. Властивість не показує скільки записів утримується в об'єкті Recordset до обертання до всіх записів. Після обертання до останнього запису набору значення властивості стає рівним повному числу не видалених записів в об'єкті Recordset.

• Filter - задає або повертає значення фільтра. При вказівці критерію фільтрації назви полів записують у квадратних скобках. Приклад використання властивості:

Sub Фільтр()

Dim зап As Recordset, колзап As Integer

Set зап = CurrentDb.OpenRecordset("Читачі", _

dbOpenDynaset)

зап.MoveLast

колзап = зап.RecordCount

MsgBox "Усього читачів у бібліотеці - " & Str(колзап)

зап.Filter = "[Кафедра]='ВМ'"

Set зап = зап.OpenRecordset()

If зап.RecordCount > 0 Then

зап.MoveLast

колзап = зап.RecordCount

MsgBox " Читачів з кафедри ВМ - " & Str(колзап)

Else

MsgBox "Немає читачів кафедри ВМ"

End If

End Sub

• Sort - задає або повертає порядок сортування записів в об'єкті Recordset.

5 Приклад виконання курсової роботи

Розробити базу даних “ Комерційна стоматологічна лікарня”, що складається з трьох таблиць “Тарифи ”, “Лікарі”, “Пацієнти”.

“Тарифи ” Поля: код виду роботи, назва процедури, ступень важкості ( початкова, середньої важкості, тяжка форма, дуже тяжка ), вартість .

“Лікарі” Поля: код лікаря, прізвище, ім’я та по батькові, категорія, телефон .

“Пацієнти”. Поля: код пацієнта, прізвище, ім’я та по батькові, категорія пацієнта, дата народження, стать, адреса, телефон.

Усі пацієнти поділяються на такі категорії:

• перша - пільгова, пацієнти обслуговуються безкоштовно (ветерани війн, діти до 7 років, чорнобильці);

• друга – 50% сплати (пенсіонери, діти до 16 років, інваліди );

• третя – повна сплата.

Певний пацієнт може мати декілька діагнозів, по яким може лікуватися. У цьому випадку для нього створюється необхідна кількість окремих записів в таблиці лікування за однією датою звернення.

“Лікування” з полями: код пацієнта, дата звернення, код лікаря, код виду роботи.