ник: Дядя Федор
Там же (у вас в базе) есть обработка поиска.
Кстати, событие перед обновлением надо убрать.(повтор на изменение)
Так же надо сделать и для списков.
Типа на событие обновление списка:
Select Case Me.ФилПоОстнач
Case 1:
Forms("Товары").ПФзапТовары.Form.FilterOn = False
Case 2:
Forms("Товары").ПФзапТовары.Form.Filter = "[Колнанечало]>0"
Forms("Товары").ПФзапТовары.Form.FilterOn = true
Case 3:
Forms("Товары").ПФзапТовары.Form.Filter = "[Колнанечало]=0"
Forms("Товары").ПФзапТовары.Form.FilterOn = true
Case 4:
Forms("Товары").ПФзапТовары.Form.Filter = "[Колнанечало]<0"
Forms("Товары").ПФзапТовары.Form.FilterOn = true
End Select
|
Ну и другие по аналогии.