Hallo Zusammen,
habe folgendes Problem.
Ich habe ein Formular ,,frmSchulung" mit der Datenherkunft ,,tblSchulung". In dem Formular befindet sich ein Kombifeld ,,Sstatus" aus der Tabelle bei dem zwei Werte (aus Werteliste ,,aktiv" u. ,,beendet") ausgewählt werden können.
Als Standardfilter beim Formular öffnen ist ,,aktiv" gesetzt.
Nun möchte ich mit einer Umschaltfläche (Button) den Filter ,,beendet" auf das Formular anwenden. Und bei erneutem drücken wieder zurück auf ,,aktiv".
Habe etwas im Forum gefunden und versucht es auf meinen Fall anzuwenden:
aus Forum:
Private Sub cmdDatensätzeFiltern_Click()
Me.Filter = "Abteilung='" & txtAbteilung & "'"
Me.FilterOn = True
End Sub
Eigen:
Private Sub Umschaltfläche18_Click()
Me.Filter = "Sstatus" = "'beendet'"
Me.FilterOn = True
End Sub
Funktioniert aber leider nicht, kommt auch keine Fehlermeldung.
Fehlt eventuell auch die anwendung/update aufs Formulars?
Über Hilfe würde ich mich wiederum freuen.
Gruss
mad
Hallo,
versuche es so:
Private Sub Umschaltfläche18_Click()
If Me.Filter = "" Then
Me.Filter = "Sstatus = 'beendet'"
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
Hallo,
habe den Code ausprobiert, funktioniert zwar irgendwie aber nicht ganz so wie ich gerne hätte.
Wenn ich nach dem öffnen den Button drücke, dann werden erstmal alle Daten angezeigt. Beim zweitenmal drücken wir der eine Datensatz (beendet) angezeigt. Allerdings wenn ich erneut drücke kommen wieder alle.
Ich würde gerne nur zwischen "aktiv" und "beendet" wechseln wollen. Alle Datensätze anzeigen brauche ich eiegntlich nicht.
Habe die sehr kleine Test-DB mit hochgeladen.
Vielleicht möchtest sich das nochmal jemand ansehen.
Danke für die Hilfe
mad
Hallo,
so:
Private Sub Umschaltfläche18_Click()
If Me.Filter = "Sstatus = 'aktiv'" Then
Me.Filter = "Sstatus = 'beendet'"
Me.FilterOn = True
Else
Me.Filter = "Sstatus = 'aktiv'"
Me.FilterOn = True
End If
End Sub
Mit etwas nachdenken hätte ..... ;D