делаешь два контрола: текстбокс и кнопку.
в процедуре обработки события "по нажатию кнопки" пишешь
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "obj_view"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
А источник данных obj_view делаешь select * from obj where цена < forms!textbox.value
Формат текстбокса тогда лучше делать такой, чтоб туда нельзя было записать ничего кроме цифр.
Кстати говоря, то что я тебе сейчас написал - все сделано визардом, в течении 2 минут, без приложения мозга.
