ник: amba-l
as variant 
Private Sub ПолеСоСписком2_AfterUpdate()
Select Case ПолеСоСписком2
Case Is = 1
DoCmd.ApplyFilter , "выборка.значение=" & 0
Case Is = 2
DoCmd.ApplyFilter , "выборка.значение>" & 0
Case Is = 3
DoCmd.ApplyFilter , "выборка.значение<" & 0
End Select
End Sub
источник строк для поля со списком "0";1;">0";2;"<0";3;"Все что угодно";4
присоединенный столбец 2
форма-выборка
поле-значение