Немного кода, по фильтрам:
Private Sub filter_Click()
Dim strFilter As String
Dim no As Integer
Dim na As String
Dim vid As Integer
Dim db As DAO.Database
Dim rcd As DAO.Recordset
Set db = CurrentDb
Dim n As Integer
If Not IsNull(f1) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
na = "SELECT id_zem FROM objtype WHERE objtype='" & f1 & "';"
Set rcd = db.OpenRecordset(na, dbOpenDynaset, dbSeeChanges)
Do
If rcd.BOF Or rcd.EOF Then GoTo met2
strFilter = strFilter & "vid_obj = " & rcd!ID_ZEM
rcd.MoveNext
Loop
met2:
rcd.Close
End If
If Not IsNull(f2) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
na = "SELECT id_nazn FROM naznach WHERE nazn_type='" & f2 & "';"
Set rcd = db.OpenRecordset(na, dbOpenDynaset, dbSeeChanges)
Do
If rcd.BOF Or rcd.EOF Then GoTo met3
strFilter = strFilter & "nazn= " & rcd!id_nazn
rcd.MoveNext
Loop
met3:
End If
If Not IsNull(f3) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
na = "SELECT id_rute FROM rutes WHERE vid_rute='" & f3 & "';"
Set rcd = db.OpenRecordset(na, dbOpenDynaset, dbSeeChanges)
Do
If rcd.BOF Or rcd.EOF Then GoTo met5
strFilter = strFilter & "rute = " & rcd!Id_Rute
rcd.MoveNext
Loop
met5:
rcd.Close
End If

If Not IsNull(f4) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "dist >= " & f4
End If
If Not IsNull(f8) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "dist <= " & f8
End If

If Not IsNull(f5) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "price >= " & f5
End If
If Not IsNull(f7) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "price <= " & f7
End If

If Not IsNull(f6) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "plosh >= " & f6
End If
If Not IsNull(f9) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "plosh <= " & f9
End If

Me.Main_obj.Form.Filter = strFilter
Me.Main_obj.Form.FilterOn = True
End Sub
Вешаешь подобный такой код, со своими заморочками на кнопку фильтров, вводишь поля для ввода фильтров и всё летает на раз два.
Извини, но код длинный (для наглядности).

Если не разберёшь, могу написать покороче.