Filter Problem

[fred-neumann]

Es wird ein Endlosformular geladen.
Im Formular werden durch Optionfelder Filter gesetzt.
Problem: Gehe ich von den Optionen/Filter 2 oder 3 auf 1, wird nicht mehr aktualisiert angezeigt, wenn ich einen DS vor oder zurück gehe.
Bei den Optionen/Filter 2+3 habe ich das Problem nicht, wenn ich einen DS vor-zurück gehe.
Hier mal der Code, welchen die Optionsfelder benutzen

Code [Auswählen] Erweitern


Private Sub Werte_Click()
     Select Case Werte

         Case 1
    Me.Form.FilterOn = False

         Case 2
    Me.Form.FilterOn = False
Me.Form.Filter = "[HeimTeam]=[Forms].[Ansicht].[HeimTeam]"
    Me.Form.FilterOn = True
         
         Case 3
    Me.Form.FilterOn = False
Me.Form.Filter = "[HeimTeam]=[Forms].[Ansicht].[GastTeam]"
    Me.Form.FilterOn = True
     End Select
End Sub


Ich habe mal eine einfach gehaltene Beispiel-DB angefügt, um das Problem zu verdeutlichen.
Kann mir jemand bitte sagen, was hier falsch ist.

mfg Fred

[el_gomero]

Hallo Alfred,

ich habe hier nur A03, kann also deine accdb nicht öffnen.

Aber so mal ins Blaue - hast du denn einen Code, der beim Datensatzwechsel OnCurrent auf die Optionsfelder prüft?

[fred-neumann]

Moin Jürgen,
nein, keine Prüfung, ich weis auch gar nicht was du meinst.
der code z.B. für den nächsten DS

Code [Auswählen] Erweitern


Forms!Ansicht!.SetFocus
DoCmd.GoToRecord , , acNext


[el_gomero]

naja beim Datensatzwechsel, also im Ereignis OnCurrent muss Call Werte aufgerufen werden. Wobei hier der Bezeichner der Prozedur wohl gleich mit dem der Optionsgruppe und somit unglücklich ist. Für die Sub wäre zB SetzeWerte sinnvoll.

[fred-neumann]

okay Jürgen,
ich versuche mal in diese Richtung was zu machen und bei "OnCurrent" Werte zu setzen.
Danke für deine Mühe Jürgen

[fred-neumann]

Hallo Jürgen,
danke für den Ansatz.
In meinem hochgeladenen Beispiel werden ja die nächsten DS per Button im Formular "Football24" gewählt. Ich habe nun vor dieser Anweisung den Code:

Code [Auswählen] Erweitern


[Foot_Historie1]![Werte].Value = 2
With Me!Foot_Historie1.Form
    .Filter = "[HeimTeam]=[Forms].[Ansicht].[HeimTeam]"
    .FilterOn = True
End With


eingefügt, und es funzt.

Ich finde es zwar Murgs, dass ich einen Filter setzte, damit die Sache überhaupt fehlerfrei funktioniert, aber ich kann ja nach erreichen des neuen DS diesen Filter wie gewohnt durch meine Optionsbutton herraus nehmen oder ändern.

Danke für deine Unterstützung Jürgen
mfg Fred

[el_gomero]

Moin Fred,

wenn du damit leben kannst, ist es ja ok. Wenn du eine elegantere Lösung anstrebst, kannst du die Muster-db nochmal hochladen, bitte im mdb-Format - dann schau ich mal, was ich machen kann. Wird aber nicht vor heute abend klappen.