Private Sub Кнопка0_Click(). Dim basa As Database, nabor As Recordset, поля As Field, имена As String

Dim basa As Database, nabor As Recordset, поля As Field, имена As String

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары", dbOpenTable)

Nabor.Move 2 ' Устанавливаем указатель на 3-ю запись

Nabor.Delete ' Удаляем её

End Sub

Результат:

Глава 19. Применение свойства RecordCount

Объекта Recordset

Пример:

Определить количество записей в наборе данных, открытым для таблицы “Товары”.