Office: (Office 2010) Endlosformular Datensätze per Textfeld filtern

Hallo zusammen,

Ich hab mal wieder mal eine Frage.
In mein Endlosformular (gebunden mit der tblAuftraege) möchte ich im Formularkopf mit den zwei ungebunden Textfelder filtern.

Ich habe im Internet eine Funktion gefunden die mir ziemlich gut erscheint, weiss allerdings nicht wie ich es umsetze bzw. wo ich diese funktion in mein Formular einsetze.
Im unteren Link könnt ihr mal reinschauen.

http://www.fullaccess.de/CONT_EN_384...82dcd68ee.aspx

Code:

Danke im Voraus.

:)

 

Hallo,

wenn du nur zwei Felder zum Filtern einsetzt, könntest du diese auch direkt prüfen und zum Filtern verwenden, die obige Prozedur ist eher für größere Vorhaben geeignet. Am Ende steht dann die Zuweisung des Filterstrings an die Filtereigenschaft des Formulars sowie das Einschalten des Filters mit Me.FilterOn = True. Oder was genau ist deine Frage?

 

Hallo
im anhang eine ein Link mit einer Muster MDB
mit beiden varianten z.B.
Form FrmELFDH mit Dauerunterkunft
Form FrmELFFF mit Formular Filter

https://dl.dropboxusercontent.com/u/...erSort2003.zip

 

Hallo zusammen,

Ich habe momentan nur zwei felder, aber es werden wahrscheinlich noch mehrere Suchfeldern hinzu kommen.

Meine Frage ist wenn ich die Funktion in einem Modul eingefügt habe, wo ich diese funktion (SQLTextErstellen) einfüge bzw, im welchen Ereignis eingebe?

Oder was ist gemeint mit Filtereigenschaft des Formulars?
Soll ich im Eigenschaftenblatt des Formulars auf dem Reiter, Daten -> Filter = SQLTextErstellen , einfügen?

 

Ich hab es vorher so versucht.

1. Suchfeld = Me.fldAuftragsNrSuche
2.Suchfeld = Me.fldBemiNrSuche

Und zwar bei_Änderung des zweiten Suchfeldes:


Code:

Allerdings habe ich bei dieser Variante ein Fehler bekommen(FehlerNr. 13 = Typen unverträglich)
Dass im Code Fett rote merkierte Text muss den oben genannten Fehler verursachen.
Das merkwürdige ist,dass wenn ich die SuchFelder einzeln benutze zum filtern, es dann geht.
Nur wenn ich beide mit einem logischen AND verbinde geht es nicht mehr...

 

Da sind einige Gänsebeine falsch. Ist aufbemIDRef wirklich ein Text, der mit LIKE durchsucht werden soll? Und wenn ja, warum dann ohne Wildcards? Ich gehe mal davon aus, dass das eine Zahl ist und aufAuftragsNr ein Text. Wenn nicht, müssen die Hochkommata raus.
Code:

Mit Debug.Print strFilter bekommst du das Ergebnis im Direktfenster (Strg + G) angezeigt.
maike

 

Hallo
1. bei Like sollte das Vergleichs Feld mit * Beginnen oder und Enden

2. dieser if

würde bei mir in etwa so ausehen:
if Len(Trim$(Nz(Me.fldAuftragsNrSuche))) < 1 Then

3. Stimmen diese Feldnamen ?
[aufbemIDRef] [aufAuftragsNr]

4. ich würde evtl. Buildcriteria einsetzen
lies in meiner Doc s. Fusszeile
ab Seite: 76 "5.3.13 Where-Bedingung mit BuildCriteria erstelle"

möcht nur noch zeigen Bildcriteria mach automatich Leik bei "*ABC" wenn 1. - letztes zeichen ein * ist
xbc = BuildCriteria("infn", dbText, "= " & "*abc") ' gibt infn Like "*abc"

 

Hi,

wenn du tatsächlich im Change-Ereignis, also bei Eingabe jedes einzelnen Zeichens, aktiv werden willst, so musst du auf die Text-Eigenschaft des auszuwertenden Textfeldes verweisen.

 

Also,

Also aufbemIDRef ist eine Zahl sowie aufAuftragsNr auch eine Zahl ist.

Ich hab nun versucht dein Code bei mir einzufügen.
allerdings erscheint der Laufzeitfehler 3075.
Syntaxfehler (fehlender Operator) in Abfrageausdruck 'aufbemIDRef]=** And [aufAuftragsNr] ='12".

Im Direktfenster erscheint dies :

[aufbemIDRef] = *f* And [aufAuftragsNr] = '12'

Code:

Danke für die Hilfe

Ich denke wir sind aufm richtigen Weg. *Smilie

 

hallo
hier
aufbemIDRef] = *f* verglichst Du jedoch nicht mit einer zahl oder was ist *f* Ok währe evtl. *1* oder *22*
und Hier
[aufAuftragsNr] = '12' brauchst du die ' ' nicht da es ja eine Zahl ist
nur
[aufAuftragsNr] = 12


wie gesagt lies das über Buildcriteria Seite 76 und folgende .........

 

Code:

Hast du strSuche vorbelegt mit den **?
Wie Ruedi schon fragt: Ist das jetzt wirklich eine Zahl oder ein Text ("f")?

Bei einer IDRef (= Fremdschlüssel) erwarte ich immer eine Zahl. Nenne deine Felder anständig, die oder der Nächste Bearbeiter/in dankt es dir - vermutlich sogar du selber in einigen Wochen oder Monaten.

Nach dem Ergebnis von Debug.Print müsste strFilter so aufgebaut werden:
Code:

Und beherzige Annes Hinweis auf die .Text-Eigenschaft des Feldes für strsuche.

maike

 

aufbemIDRef ist ein kombifeld im detailbereich und die Datensatzherkunft ist eine Abfrage mit 3 Spalten. und ist als Datentyp in der Tabelle als Zahl hinterlegt, da es ein Fremdschlüssel ist.
Wobei die 1. Spalte die ID ist, die 2. Spalte die Bemi-Nummer(also das was ich eigentlich vergelichen möchte und die 3.Spalte die Bemerkung dazu.)

 

Hi,

siehe hier:

 

hier ein Bild
und das Kombifeld ist das Me.aufbemIDRef (Datentyp=Zahl)
und das Textfeld im Detailbereich ist Me.aufAuftragsNr (Datentyp = Zahl)

 

Wo kommt denn dann das "F" her?

Zeig doch bitte mal deinen aktuellen Code dazu, und zwar die vollständige Ereignisprozedur.