Filter zeitgleich an Unterformular weitergeben

[Mrfivejunior]

Hallo zusammen,

ich hab folgendes Problem:

Ich hab ein Formular mit einem Unterformular. Auf dem Formular erzeuge ich einen Filter. Wie kann ich nun zeitgleich den Filter an mein Unterformular weitergeben. Bis jetzt klappt das nur wenn ich beim Unterformular folgendes Ereignis mache:

Private Sub Form_Click()

            If sFilterbedingung2 = "" Then

            Me.FilterOn = False

            Else

            Me.Filter = sFilterbedingung2

            Me.FilterOn = True

            End If

End Sub

Ich habs auch schon mit form_current() und mit form_load() versucht, aber es geht weder beim anderen noch beim anderen. Außerdem wechselt bei mir das Unterformular die Ansicht je nachdem welches Kontrollkästchen aktiviert wurde.

Me![frmAnalyseBearbeiterTest].SourceObject = "frmAnalyseBearbeiterTest"

Den Filter auf dem Hauptformular erzeug ich so:

Dim Filterbedingung2 As String


    If Not IsNull(Me!Bearbeiter) Then

        If Filterbedingung2 <> "" Then

            Filterbedingung2 = Filterbedingung2 & " AND "

        End If

        Filterbedingung2 = Filterbedingung2 & "Bearbeiter = " _

                & Chr(34) & Me!Bearbeiter & Chr(34)

    End If


    If IsDate(Me!DatVon) Then

        If Filterbedingung2 <> "" Then

            Filterbedingung2 = Filterbedingung2 & " AND "

        End If

        Filterbedingung2 = Filterbedingung2 & "Auftragseingang >= " & Format(Me!DatVon, "\#yyyy\-mm\-dd\ hh:nn:ss#")

    End If


    If IsDate(Me!DatBis) Then

        If Filterbedingung2 <> "" Then

            Filterbedingung2 = Filterbedingung2 & " AND "

        End If

        Filterbedingung2 = Filterbedingung2 & "Auftragseingang <= " & Format(Me!DatBis, "\#yyyy\-mm\-dd\ hh:nn:ss#")

    End If


Me.Filter = Filterbedingung2

Me.FilterOn = True


sFilterbedingung2 = Filterbedingung2

frmAnalyseBearbeiterTest.Requery

Daneben hab ich dann „sFilterbedingung2“ als globale Variable deklariert:

Global sFilterbedingung2 As String

Kann mir bei meinem Problem vielleicht einer weiterhelfen??

Schon mal danke.

PS:Ich verwende Access07.