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
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
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?
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
Forms!Ansicht!.SetFocus
DoCmd.GoToRecord , , acNext
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.
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
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:
[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
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.