gefiltertes Formular - DS nochmals filtern

[mad]

Hallo Zusammen,

ich habe ein Formular mit Geburtstagen, das beim öffnen mit einem Buchstabenkürzen geöffnet/gefiltert wird.

Code [Auswählen] Erweitern

...
    stDocName = "frm_Geburtstag"
        DoCmd.OpenForm "frm_Geburtstag", acFormDS, , "OK = Forms.UG_frm_Formauswahl_Allg.OKGlobal"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
...
im gefiltertem "frm_Geburtstag" möchte ich nun nach einem Geburtstag z.B. 50. im Feld "obergrenze" nochmals filtern, mache ich mit diesem Code:

Code [Auswählen] Erweitern

Private Sub obergrenze_AfterUpdate()
   Me.Filter "Jahresalter =  " & Me.obergrenze
   Me.FilterOn = True
End Sub
Dann wird aber der Filter wieder auf alle DS angewandt, nicht nur auf die vorgefilterten!

Wie könnte ich jetzt den Filter oder einen teil davon, der beim Öffnen des Formular angewandt wird mit einbauen?

...
DoCmd.OpenForm "frm_Geburtstag", acFormDS, , "OK = Forms.UG_frm_Formauswahl_Allg.OKGlobal"
...

Über Hilfe würde ich mich sehr freuen.

Gruss
mad

[PhilS]

Code [Auswählen] Erweitern

Private Sub obergrenze_AfterUpdate()
   Me.Filter = Me.Filter " AND Jahresalter =  " & Me.obergrenze
   Me.FilterOn = True
End Sub
Wenn nicht sichergestellt ist, dass es bereits einen bestehenden Filter gibt, musst du das natürlich gesondert behandeln.

[Beaker s.a.]

kleiner Tippfehler

Private Sub obergrenze_AfterUpdate()
   Me.Filter = Me.Filter & " AND Jahresalter =  " & Me.obergrenze
   Me.FilterOn = True
End Sub

[mad]

Super,
Herzlichen Dank
mad