2015-02-14
334
Set basa = CurrentDb
Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)
With nabor
.FindLast "Цена>60"
Do Until.NoMatch
s = s &! Товар & " " &! Цена & " " &!Поставщик & vbCr
.FindPrevious "Цена>60"
Loop
End With
MsgBox s
End Sub
Применение метода GetRows
Объекта Recordset
Пример:
Скопировать в двумерный массив первые 3 записи из таблицы «Товары» и вывести их в окно Immediate.
Private Sub Кнопка0_Click()
