Office: (Office 2016) Mit Kontrollkästchen Formular filtern

Guten Abend Community,

ich habe folgendes Problem und hoffe ihr könnt mich unterstützen.

Ich habe ein Formular (Geteiltes Formular), in diesem Formular habe ich im Formularkopf 3 ungebundenen Textfelder und ein Kontrollkästchen und ein Button.

Die Datensatzquelle für das Formular ist eine Abfrage. In der Abfrage habe ich z.B. bei Kundennamen als Kriterien stehen:
Wie "*" & [Formulare]![frmFormular]![txtKundennamen] & "*" In diesem Feld funktioniert die Suche über das Formular super.
Folgender Code steckt hinter dem ungebunden Textfeld txtKundennamen: Code:

Nun kommt mein Problem Feld und zwar ist das das Kontrollkästchen. Ich bekomme es einfach nicht hin, dass ich über das Kontrollkästchen eine Suche vornehmen kann.

Ich habe recherchiert das ein Kontrollkästchen wohl nur zwei Möglichkeiten besitzt und damit nur zwei Werte abfragen kann. In meinem Fall Einmal -1 (Ja) und 0 (Nein)

Ich würde gerne einmal alle Datensätze mit Ja (-1) suchen, dann einmal alle Datensätze mit Nein (0) und als letztes einmal Alle (3 ?) Datensätze anzeigen lassen.

Ich müsste dann doch eine Optionsgruppe für mein Vorhaben erstellen oder? Und das jetzige Kontrollkästchen raus schmeißen aus meinem Formular?

Ich hoffe ich konnte meinen bisherigen Versuche und mein Problem gut verständlich rüber bringen und hoffe auf eine Antwort von euch.

Mit freundlichen Grüßen

AccUser2013

:)

 

Ja, Optionsgruppe wäre gut.
Hast Du es denn schon probiert?
Mit einem Kombifeld ginge es auch schön...

 

Danke für deine Antwort,

Ja mit Optionsgruppe habe ich schon "getestet" ist doch das mit Case 1, Case 2, Case 3 ?

Code:

Aber ich weiß leider nicht wie ich den/die Case richtig füttere und ob oder was ich noch in die Abfrage einbauen soll.
Beziehungsweise müsste da ja irgenwie -1 und 0 rein oder?

Mit freundlichen Grüßen

AccUser2013

 

Na ja,
hinter jedem CASE definierst Du Deine entsprechende Abfrage (oder Filter).
Am Ende der CASEes ein Requery.

Ich würde dem Formular gleich eine feste RecordSource verpassen (string - zb. str_rec).
Dieser string wird dann in jedem CASE angepasst (-1, 0 ,3) - wie auch immer.
(str_rec = "SELECT..... WHERE....")
Am Schluß eben das Me.Requery... bzw. Me.RecordSource = str_rec.

 

Code:

Mir fehlt noch die Verknüpfung zum Abfrage Kontrollkästchen oder?

Mit freundlichen Grüßen

AccUser2013

 

Hallo,
so:
Code:

Die Abfrage selbst für das Formular darf nicht über das KK gefiltert sein.

 

Vielen Dank,

funktioniert super und ich habe wieder etwas dazu gelernt.

Euch ein schönes Wochenende!

Mit freundlichen Grüßen

AccUser2013

 

Hallo!

Damit du bei späteren Änderungen in deiner Anwendung die Übersicht behältst, würde ich an deiner Stelle nicht über zwei unterschiedliche Varianten filtern.
Du könntest die Filterbedingungen in der Abfrage auch über den Formular-Filter umsetzen.
Beispielcode für das Zusammensetzen von Filterbedingungen sollten genügend in diesem Forum und anderswo zu finden sein.

mfg
Josef

 

Danke Josef P. für deinen Hinweis.
Ich werde mindestens eine Notiz bei dem Befehl einbauen wenn ich nicht wie du sagst es komplett auf einen Weg filtere.

Ich habe bemerkt dass mir noch eine Funktion fehlt.

Wenn ich auf den Button "AlleAnzeigen" drücke werden alle ungebunden Textfelder geleert, leider aber nicht die Optionsgruppe auf "Alle" wieder gesetzt. Ich versuchte es mit diesem Befehl:
Code:

Doch leider klappt dieses nicht, kann/muss ich die Optionsgruppe und damit die Case 3 irgendwie anders "ansprechen" ?

Vielen Dank für einen Tipp.

Mit freundlichen Grüßen

AccUser2013

 

ehm...
Code:

*boah

Man könnte den Code auch so verkürzen:
Code:

Als Values für die Option 1 bzw 2 setzt man halt -1 (TRUE) bzw. 0 (False)

 

Danke fredfred,

Die Optionsgruppe springt jetzt auf Alle anzeigen um, aber leider wird das geteilte Formular und damit die Datensätze nicht angezeigt.
Es werden immer noch die "alten" Datensätze angezeigt, also je nach dem wo man vorher war, entweder auf "Ja" oder "Nein".
Aber der Punkt springt auf "Alle" um.

Woran könnte das liegen?

Mit freundliche Grüßen

AccUser2013

 

Hi,
ruf dein AfterUpdate auf, nachdem die Optionsgruppe auf 3 gesetzt wurde.

Code:

Allerdings finde ich wie Josef dass schon angemerkt hat, die Mischung aus dem Formularfilter einerseits und dem Forms! Parameter der Abfrage etwas konfus, oder zumindest nicht konsequent.

 

Ah super ich danke dir auch zu der späten Stunde super Hilfe!

Mit freundlihen Grüßen

AccUser2013