Office: (Office 2010) Formular Filtern nach Suchbegriffen

Ich habe mal wieder ein problem.

Ich habe ein Formular welches als Datensatzherkunft eine Abfrage hat.
Die Abfrage gibt mir verschiedene Einträge wieder.
Unter anderem die Werte: trans_datum, trans_art, und coin_name Das habe ich sichergestellt.

Auf meinem Formular gibt es 2 textfelder namens trans_von und trans_bis.
Desweiteren gibt es 2 Kombinationsfelder wo die Datensatzherkunft eine Select abfrage ist. (die im Kombi feld enthaltenen Daten kommen aus einer Tabelle) die Felder heißen cbo_coin und cbo_trans_art.

Daneben befindet sich ein Such Button der folgendes im Klick Ereignis stehen hat:
Code:

Nach dem Datum filtert er mir die anzeige jedoch nciht nach coin_name und trans_art.
Ich habe statt From.Filter auch Me versucht da ich ja direkt auf dem Hauptformular bin aber das geht nicht, dann gibt er nichts aus.
Nachdem was ich so gelesen habe sollte es aber funktionieren.

Ich könnte auch in der Abfrage auf die Felder zurückgreifen, aber das möchte ich nicht, damit ich Flexibel bin. Sonst müsste ich bei coin_name und_trans_art immer etwas eingeben.

Kann mir jemand sagen was ich falsch mache? Ich finde den Fehler einfach nicht :-(

Fehlermeldung: Laufzeitfehler 424 Objekt erforderlich

:)

 

evtl. ein Flüchtigkeitsfehler?...From statt Form
probier mal
Code:

 

Tippfehler im Code: statt From muss es Form heißen.
Zeile 5 im If-Block.

 

Danke... der Tippfehler ist mir nicht aufgefallen... aber daran lag es nicht.
Ich habe jetzt folgendes stehen:
Code:

Und jetzt funktioniert nicht mal die Datumssuche :-) Ich setzte den Fiter zwischen 2.10. und 5.10. und er zeigt mir beiträge vom September :-D

Aber jetzt gleibt die Fehlermeldung weg.

 

schau mal genauer #2 an.

 

Oje wo ist mein Kopf ja sorry habe jetzt gesehen das nicht nur das From bemengelt wurde.

Ich habe es jetzt so geschrieben:
Code:

Aber sobald ich jetzt in den Kombinationsfeldern etwas eintrage zeigt er mir nichts mehr an. Ich habe eine Beispieldatenbank angehangen.

 

Code:

Das ist höchst problematisch. Form ist zwar ein Accessobjekt, aber so kommst Du nie auf ein bestimmtes Formular, auch nicht auf das aktuelle.
Richtig wäre die Verwendung von Me - das verweist auf das aktuelle Formular.

Wenn "nichts" ausgegeben wird, erfüllt kein Datensatz die verwendeten Kriterien. Dabei sollte man auch berücksichtigen, dass "leere" Felder i.d.R. einen NULL-Inhalt haben. NULL ist das Undefinierte, Unbekannte. Damit kann man nicht direkt vergleichen, sondern man kann nur diesen Zustand extra abfragen oder behandeln.

 

Hi ebs 17, mit Me habe ich es auch versucht aber ohne erfolg. Ich habe auch in beiden Kombi feldern etwas eingegeben, damit da kein 0 wert ist aber es wird mir nichts angezeigt. Eigentlich ist die suche uach so gedacht, dass er wenn ich z.b keine Transaktionsart angebe er mir alle anzeigt.

Aber selbst wenn ich über all etwas eingebe macht er nichts :-(

 

Wie gesagt: Suchen/Filtern kann man immer. Das Finden ist etwas rarer. Das zu Findende muss auch vorhanden sein.

Kriterium soll alle Datensätze bringen

Tipp so nebenbei: Wenn Du die FAQ von donkarl auswendig lernst, bist du für sehr viele Fälle gewappnet.

 

Hallo Horst14,

ich weiß ja nicht., wie Du Deinen Code testest, aber ich habe die Filterbedingung erstmal in eine String-Variable geschrieben:
strFilter = "trans_datum Between " & strVon & " And " & strBis
strFilter = strFilter & " AND coin_name LIKE '*" & Me.cbo_coin & "*'"
strFilter = strFilter & " AND trans_art LIKE '*" & Me.cbo_trans_art & "*'"
Debug.Print strFilter
Ergebnis:
trans_datum Between #2019-10-02# And #2019-10-05# AND coin_name LIKE '*1*' AND trans_art LIKE '*2*'
Me.cbo_coin & Me.cbo_trans_art ziehen nicht die sichtbaren Werte der Comboboxen, deshalb so:
strFilter = "trans_datum Between " & strVon & " And " & strBis
strFilter = strFilter & " AND coin_name LIKE '*" & Me.cbo_coin.Column(1) & "*'"
strFilter = strFilter & " AND trans_art LIKE '*" & Me.cbo_trans_art.Column(1) & "*'"
Debug.Print strFilter
Ergebnis:
trans_datum Between #2019-10-02# And #2019-10-05# AND coin_name LIKE '*Bitcoin*' AND trans_art LIKE '*Auszahlung*'

Und dann:
With Me
.Filter = strFilter
.FilterOn = True
End With

Gruß von Luschi
aus klein-Paris

 

Danke für eure Antworten und eure Geduld :-).

@Luschi
Ich habe es nicht mit Strings getestet sondern mit eingaben und gemerkt, dass es nicht funktioniert.
Code:

Warum ziehen Sie die werte nicht was habe ich falsch gemacht?
So wie du es jetzt geschrieben hast funktioniert es wunderbar danke dafür aber für mein verständnis, was habe ich falsch gemacht?

Dann werde ich jetzt mal versuchen, die Anzeige in einen Bericht zu verpacken, so dass ich das Filtererrgebnis ausdrucken kann :-).

 

Hallo Horst14,

diese beiden Combi-Felder sind in den Eingenschaften so eingestellt:
Spaltenbreite: 0cm;2,544cm
Gebundene Spalte : 1
Diese gebundene Spalte hat aber die Breite von 0 cm und wird somit nicht angezeigt.
Und Me.cbo_coin bzw. Me.cbo_trans_art gibt die Standardeigenschaft 'Value' zurück, also den Wert der gebundenen Spalte und entspricht aber auch
Me.cbo_coin.Column(0) sowie Me.cbo_trans_art.Column(0).
Deshalb bei SQL-/Filter-Strings erst eine Variable füllen, um zu sehen, was dann an das Recordset bzw. den Filter geschickt wird.
Dazu gehöhrt auch, daß man
- mit Haltepunkte /Brakepoints (F9-Taste) beim Testen arbeitet
- mit F8-Taste Zeile für Zeile weiter schaltet
- oder mit F5-Taste den normalen Programmablauf fortsetzt
- im Überwachungsfenster einzelnen Variablen speziell kontrolliert usw.

Gruß von Luschi
aus klein-Paris

 

Buildcriteria ist eine hilfreiche Funktion:
Code:

Im übrigen würde ich über die ID'S also die gebundenen PK's der Kombis filtern und nicht über den Namen.

 

Halloo fredfred,

was nützt 'BuildCriteria' wenn die übergebene Logik falsch ist; bei dir kommt heraus: trans_datum#10/2/2019#
Gesucht sind aber alle DS, die zwischen (between) diesen beiden Datumsangaben liegen (einschließlich der unteren und oberen Grenze)!

Gruß von Luschi
aus klein-Paris

 

Wer sagt, dass diese "Logik" nicht realisierbar ist ?
Der Vorteil von BuildCriteria liegt darin, dass sich die Funktion um die korrekte Formatierung der Datentypen kümmert.


schon mal was von >= oder