Office: (Office 2010) Filtern nach mehreren Kriterien/bei direkter Eingabe

Hallo zusammen

Ich habe folgenden Sachverhalt und hoffe auf Eure Hilfe:

In meinem Formular sollen Datensätze mittels mehreren Suchfeldern sprich, anhand mehrerer Kriterien nach dem Ausschlussprinzip (bspw. Vorname, Nachname, Funktion, etc.) gefiltert werden können. Momentan funktioniert dies sehr gut mittels After-Update-Funktion.

Und folgendes soll erreicht werden:

Mein Filter soll so umgebaut werden, dass

a) sich die ausgewählten Datensätze automatisch und fortlaufend anhand der Eingaben anpassen. Je mehr Buchstaben ich also in das Suchfeld eintippe, desto mehr soll sich die Auswahl der gefundenen Datensätze einschränken. Ich habe hierzu versucht das "Change"-Ereigniss zu verwenden, jedoch kann ich hier nur immer einen Buchstaben eigeben und keine ganzen Wörter oder Wortgruppen. Wie kann ich das bewerkstelligen?

b) sobald ich die im Suchfeld eingegebenen Wörter wieder entferne, soll mir sogleich wieder der erweiterte Datensatz angezeigt werden (d.h. die Auswahl der Datensätze soll sich permanent und automatisch den eingegebenen Suchkriterien im Suchfeld anpassen).

Ich hoffe, jemand kann mir einen Hinweis geben, wie ich so etwas auf nicht allzu komplizierte Weise hinkriege (bin ja leider auch noch Anfänger ;-)

Ich danke Euch schon jetzt im Voraus.

Hier mal mein bislang verwendeter, einfacher Code den ich gerne umbauen möchte:

Option Compare Database
Option Explicit

Private Sub SuchfeldNachname_AfterUpdate()
Dim strFilter As String

If Not Len(Me!SuchfeldNachname.Text) = 0 Then

strFilter = "Vorname Like '*" & Me!SuchfeldVorname & "*' " & _
"AND Nachname Like '*" & Me!SuchfeldNachname & "*' "

Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub

Private Sub SuchfeldVorname_AfterUpdate()
Dim strFilter As String

If Not Len(Me!SuchfeldVorname.Text) = 0 Then

strFilter = "Vorname Like '*" & Me!SuchfeldVorname & "*' " & _
"AND Nachname Like '*" & Me!SuchfeldNachname & "*' "

Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub

:)

 

schau Dir mal das Suchformular der
KnowHowDB
an

 

Hallo Ralf

Danke für Deine Antwort. Leider fällt es mir als Anfänger ein wenig schwer, eine Lösung aus seinen Beispielen für meinen Fall zu adaptieren. Ich bleib aber mal dran und probier mal ein wenig rum...

Vielleicht hättest Du schon mal ne Lösung für mein Problem, dass ich in meinen Suchfeldern nur immer ein Buchstaben eintippen kann und keine ganzen Wörter, wenn ich eine "Change-Prozedur" wähle?

Trotzdem vielen Dank
Dani

 

Hallo Dani,

so könnte der Code für das Change-Ereignis aussehen: Code:

BTW:
Die Text-Eigenschaft ist ausschließlich im Change-Ereignis zu benutzen, ansonsten wird auf .Value zugegriffen (-> Standardeigenschaft).

 

Hallo Anne

Herzlichen Dank für Deine Hilfe...funktioniert nun so wie ich es möchte ;-)

Liebe Gruss