End Sub. Set r = CurrentDb .OpenRecordset ( tviddily , dbOpenDynaset)

Sub Пошук ()

End Sub

Sub AddRecord ()

Dim r As Recordset

Set r = CurrentDb. OpenRecordset (" tviddily ", dbOpenDynaset)

With r

. AddNew

! pidrozdil = InputBox("Введіть відділ")

! tel = InputBox("Введіть телефон")

! shef = InputBox("Введіть прізвище начальника")

. Update

End With

Ø FindFirst, FindPrevious, FindNext, FindLast – використовуються для пошуку записів, які задовольняють вказаним умовам. Ці мето­ди роблять активними перший, попередній, наступний або остан­ній запис, для яких виконуються умови, відповідно.

Умови для пошуку або фільтру можна записувати власноруч або використовувати метод BuildCriteria. Щоб перевірити, чи знайдено потрібний запис, використовують властивість NoMatch.

Ø NoMatch – властивість, яка має значення True, якщо потрібний запис не знайдений, і False, якщо знайдений.

Ø Filter – задає або повертає значення фільтру. Правила запису критерію для фільтру такі ж самі, як і для команд пошуку.

Ø BuildCriteria – метод утворює рядок символів, який має вигляд критерію для пошуку або фільтру. Синтаксис:

BuildCriteria (“поле ”, тип_даних_поля, текстовий_вираз)

поле – це ім’я поля, в якому здійснюється пошук, воно запису­ється в лапках (це може бути й функція або вираз рядкового типу);

тип_даних_поля – це внутрішня константа Access, VBA, DAO або ADO; використовують одну з таких констант:

dbBoolean, dbByte, dbChar, dbCurrency, dbDate, dbInteger, dbLong, dbMemo, dbNumeric, dbSingle, dbText, dbTime

текстовий_вираз – це змінна, яка містить зразок для пошуку або сам вираз для пошуку у вигляді текстової константи.

Задача 2.2. Знайти в таблиці tvidom прізвище людини, яка наро­дилася до 1970 року (поле dtr – дата народження).

Dim r As Recordset, strCriteria As String, fam As String

Set r = CurrentDb. OpenRecordset (" tvidom", dbOpenDynaset)

strCriteria = BuildCriteria ("Year (dtr) ", dbInteger, "<1970")

r. FindFirst strCriteria

If r. NoMatch() Then

MsgBox " Такої людини немає! "

Else

fam = r! fio

MsgBox fam

End If

Для продовження пошуку треба використати метод FindNext.

Ø Close – закриває відкритий об'єкт доступу до даних.

Ø Delete – вилучає поточний запис в об'єкті Recordset.

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

Задача 2.3. Підрахувати кількість людей в таблиці tvidom, які народилися раніше 1970 року. Використаємо інший критерій пошуку.

Sub кількість()

Dim r As Recordset, strCriteria As String, n As Integer

Set r = CurrentDb. OpenRecordset (" tvidom", dbOpenDynaset)

strCriteria = BuildCriteria("dtr", dbDate, "<1–1–70")

r. Filter = strCriteria

Set r = r. OpenRecordset

If r. RecordCount > 0 Then

r. MoveLast

n = r. RecordCount

MsgBox " Таких людей – " & Str(n)

Else

MsgBox " Таких людей немає! "

End If

Дата добавления: 2015-03-29