Dim basa As Database, nabor As Recordset, Массив As Variant, i, j As Byte
Set basa = CurrentDb
Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)
With nabor
Массив =.GetRows(3) 'копируем 3 записи в массив
End With
For i = 0 To UBound(Массив, 2)
For j = 0 To UBound(Массив, 1)
Debug.Print Массив(j, i) & " ";
Next j
Debug.Print vbch
Next i
End Sub
Результат:
Глава 21. Объекты QueryDef
Объект QueryDef представляют собой хранимое определение запроса. Он не содержит данных из таблиц, выбираемых по запросу.