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

Set basa = CurrentDb

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

MsgBox "Количество записей=" & nabor.RecordCount

Результат работы:

Применение свойства Fields

Объекта Recordset

Пример:

Определить названия полей для текущей записи в наборе данных,

открытым для таблицы “Товары”.

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

Set basa = CurrentDb

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