double arrow

Private Sub Кнопка8_Click(). Dim basa As Database, nabor As Recordset, zena1 As Currency


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


Сейчас читают про: