Private Sub Кнопка8_Click()

Dim basa As Database, nabor As Recordset, zena1 As Currency

Set basa = CurrentDb

zena1 = Заданная_цена.Value

‘Переменной zena1 присваивается значение из текстового

‘поля с именем «Заданная_цена»

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

With nabor

Do Until.EOF ‘ Пока не достигнут конец файла

If MsgBox("Продолжать выборку?", vbYesNo, "ВЫБОРКА") = vbYes Then

If.Fields!Цена > zena1 Then

Товар.Value =.Fields!Товар ‘Вывод значений из таблицы в поля формы

Цена.Value =.Fields!Цена

Поставщик.Value =.Fields!Поставщик

Дата_поставки.Value =.Fields!Дата_поставки

End If

.MoveNext ‘Переход к следующей записи

Else

Exit Do ‘ Преждевременный выход из цикла

End If

Loop

Close ' Закрывает набор

End With

End Sub

Применение объекта Debug

Объект Debug полезен на этапе проектирования и отладки приложения. Он содержит два метода- Print и Assert. Метод Print позволяет отобразить содержимое элемента данных в окне отладки Immediate (окно вызывается нажатием клавиш CTRL+G), a Assert даёт возможность приостановить выполнение программ в том случае, если выражение типа Boolean, переданное ей в качестве параметра, даёт в результате вычисления значение False.

Пример

Просмотреть все записи в объектe Recordset.

Для перебора всех записей в наборе применим цикл Do. Переход к следующей записи используем метод MoveNext.

1.Создадим в конструкторе форму без всяких элементов управления.

2. По событию ОТКРЫТИЕ формы пишем программный код:

3.Открыть форму и нажать CTRL+ G для вызова окна Immediate. В окне Immediate появятся значения всех полей таблицы.

Пример

Удалить текущую запись в таблице.

Таблица до удаления записи:

Поиск по сайту: