er det muligt?

Hi
Have you got your filter (søge) with one criteria to work with a sub form? If so then maybe I can see the problem with your second criteria if you can send me your dB again.

:-)
I'll post it...
thanx

Hvorfor ikke bare binde underformene op mod hovedformen via de to felter, altså navnene på de to dropdown felter som Overordnede (Team;Dato) og de tilhørende i subformene som Underordnede (Team;Dato)?

Thats what rashid was actually trying to do.

But actually there is no data on the main form, just a couple of UNBOUND combo's to filter with.
Originally he was using Thomas's form filter routine, but that only works (as far as I know) with a single form. So now I have made a simple filter routine which filters the sub forms.

OK, but just for the record: It works just fine with unbound combos ;o)

also if some of them are empty?

Nope, but rashid wanted to create a "search criteria" with 2 fields. That was in fact the essence of the question.

fdata -> I tried your solution, but could'nt get it working. Terry gave the solution, witch I'll post here:

Function NewFilter()
Dim sFilter As String

    sFilter = "1 "
   
    If Not fldIsEmpty(Me.Dato) Then
        sFilter = sFilter & " AND  Dato = #" & Me.Dato & "#"
    End If
   
    If Not fldIsEmpty(Me.cboTeam) Then
        sFilter = sFilter & " AND TEamID = " & Me.cboTeam
    End If
   
   
    'Me.Filter = sFilter
    Me.frmUltimoAlle.Form.Filter = sFilter
    Me.qryTilgangAlle.Form.Filter = sFilter
   
    If sFilter = "1 " Then 'No filter
        Me.frmUltimoAlle.Form.FilterOn = False
        Me.qryTilgangAlle.Form.FilterOn = False
   
        'Me.FilterOn = False
    Else
        Me.frmUltimoAlle.Form.FilterOn = True
        Me.qryTilgangAlle.Form.FilterOn = True
   
        'Me.FilterOn = True
    End If
   
   

    Me.Refresh
   
   
End Function

Function fldIsEmpty(fld As Variant)

    If IsNull(Len(Trim(fld))) Then
    'If IsNull(fld) Or fld = "" Or IsNull(Len(fld)) Then
        fldIsEmpty = True
    Else
        fldIsEmpty = False
    End If
   
End Function

thanks for your help Terry ;-)