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

maikek · 13. Mai 2014

Mit diesen Anhaltspunkten solltest du den Filter hinkriegen:

Vergleichen kann man nur gleiches (Text mit Text, Zahl mit Zahl)

Ein Vergleich mit LIKE und * macht nur Sinn bei Text

Vergleich für Filter: Tabellenfeld = (oder LIKE) Formularfeld mit Suchwert

Der Zugriff auf die 2. Spalte eines Kombifeldes: Me.KombiName.Column(1)

maike

Anne Berg · 7. Januar 2021

von maikek

Ein Vergleich mit LIKE und * macht nur Sinn bei Text

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Einspruch! *wink.gif*

Man kann durchaus auch in Zahlen mit Like suchen (wollen), bspw. wenn bestimmte Ziffern an bestimmten Positionen eine bestimmte Bedeutung haben.

maikek · 13. Mai 2014

Man kann durchaus auch in Zahlen mit Like suchen (wollen), bspw. wenn bestimmte Ziffern an bestimmten Positionen eine bestimmte Bedeutung haben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist für mich dann Text *wink.gif* .
maike

Anne Berg · 13. Mai 2014

Das kann aber definitiv auch ein Datenfeld vom Typ Zahl sein. *wink.gif*

Lanz Rudolf · 13. Mai 2014

Hallo
das Kombifeld ist das Me.aufbemIDRef (Datentyp=Zahl)
sehe ich in deineb Bild (Tabelle/Abfrage) NICHT *frown.gif*

Kyron9000 · 13. Mai 2014

Hallo @Alf1988,

denke ich hätte eine Lösung, wenn ich sie dir gut erklären kann.
Wenn nicht stelle ich eine BeispielDB ein *Smilie
Also, das wäre mal der Code für dein Formular...
Code:

Option Compare Database
Option Explicit

Public Sub SetFilter(sQuery As String)
Dim ctl As Control
Dim sSQL As String
Dim sWHERE As String
Dim sFeld As String
sSQL = "SELECT * FROM " & sQuery
For Each ctl In Me.Controls
If ctl.Tag = "F" Then
If Len(ctl.Value) 0 Then
If Len(sWHERE) 0 Then sWHERE = sWHERE & " AND "
sWHERE = sWHERE & ctl.Name & " Like'*" & ctl.Value & "*'"
End If
End If
Next ctl
If Len(sWHERE) 0 Then sWHERE = " WHERE " & sWHERE
Me.RecordSource = sSQL & sWHERE
sFeld = Screen.PreviousControl.Name
Me(sFeld).SetFocus
Me(sFeld).SelStart = Len(Screen.PreviousControl.Name)
End Sub

Private Sub btnDelFilter_Click() ' Löschbutton
Me.RecordSource = "qry_Suchen"
End Sub

Private Sub Kundenname_Change() ' Suchfeld 1
Me.Kundenname = Me.Kundenname.Text
SetFilter "qry_Suchen"
End Sub

Private Sub GerarteArt_Change() ' Suchfeld 2
Me.GerarteArt = Me.GerarteArt.Text
SetFilter "qry_Suchen"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beschreibung...
btnDelFilter = Löschbutton für das Filter
"Kundenname" = Suchfeld mit dem Namen des Feldnamens (in der Tabelle) in dem gesucht werden soll.
genauso wie der 2. Namen "GerarteArt" gleich ist

Also, noch mal z.B.
dein Feldname der gefiltert werden soll ist Vorname, den gibst als Name z.B.
im Detailbereich txtVorname und dem Suchfeld gibst den Namen Vorname,
so machst das mit dem 2. Feld auch und fügst den Code ein mit deinen Namen
anstatt z.B. Kundenname_Change ist dann Vorname_Change... :*tongue.gif*

Und... "qry_Suchen" ist die Abfrage die du für das Formular zur Verfügung stellst.

SetFilter = der FilterCode

Verstanden?? Bin nicht so gut im erklären... aber, gsd nicht der einzige *grins
PS: ich habe den Code getestet und er funktioniert!

Noch etwas... nur Text verwenden, wenn nicht wird es nicht funktionieren
und ich muss es umgestalten, was verm. auch nicht schwierig sein wird aber
unnötig wenn du nur Text verwenden möchtest *Smilie logisch.

Kyron9000 · 13. Mai 2014

Guten Morgen,

habe etwas zum erklären vergessen...
für die beiden Suchfelder musst als Marke/Tag (im Eigenschaften-Fenster für das Feld ganz unten) ein F eintragen!

So hoffe es war jetzt alles *Smilie

Schönen Tag noch!

Alf1988 · 14. Mai 2014

Das bild ist von einer vorversion dieser Prozedur....
Also nicht verwirren lassen.

Ich kann nun in dem Suchfeld ein Zeichen eingeben.

Das "F" gebe ich im feld ein zum suchen...
Und dann wird es markiert...

Code:

Private Sub fldBemiNrSuche_Change()
Dim strsuche As String

Me.aufbemIDRef.SetFocus
strsuche = "*" & Me.fldBemiNrSuche & "*"

If Me.fldAuftragsNrSuche "" Then
Me.Filter = Me.Filter = "[aufbemIDRef] LIKE '" & strsuche & "' And [aufAuftragsNr] = " & Me.fldAuftragsNrSuche
Me.FilterOn = True
Else
Me.Filter = "[aufbemIDRef] = '" & strsuche & "'"
Me.FilterOn = True
End If

Me.fldBemiNrSuche.SetFocus

' Eingegebene Leerzeichen (Zeichen Nr. 32) umsetzen
If m_intkeyascii = 32 Then
Me.fldBemiNrSuche = Me.fldBemiNrSuche & Chr(32)
End If

' Wenn kein passender Datensatz gefunden wird, d.h. wenn das Formular leer ist Cursor ans Ende des Textes setzen
If Me.RecordsetClone.RecordCount = 0 Then
' Me.fldAuftragsNrSuche.SelStart = 0
' Me.fldAuftragsNrSuche.SelLength = Len("" & Me.fldAuftragsNrSuche)

' ansonsten Cursor ans Ende des eingegeben Textes setzen laut DonKarls FAQ 4.24
Else
Me.fldBemiNrSuche.SelStart = Len("" & Me.fldBemiNrSuche)
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maikek · 14. Mai 2014

Zum xten:
Deine BemiNr ist ein Text. In deinem Kombifeld steht in der gebundenen Spalte eine Zahl.
Der Filter muss sich auf ein Tabellenfeld beziehen, nicht auf ein Kombifeld im Formular.
maike

Alf1988 · 14. Mai 2014

Ich hab nun versucht das Kombifeld im Detailbereich mit einem Text zu ersetzen.
hab aufbemId mit bmeNummerAnzeigen ersetzt....

Code:

Dim strsuche As String

Me.bemNummerAnzeigen.SetFocus
strsuche = "*" & Me.fldBemiNrSuche & "*"

If Me.fldAuftragsNrSuche "" Then
Me.Filter = "[bemNummerAnzeigen] = '" & strsuche & "' And [aufAuftragsNr] = " & Me.fldAuftragsNrSuche
Me.FilterOn = True
Else
Me.Filter = "[bemNummerAnzeigen] LIKE '" & strsuche & "'"
Me.FilterOn = True
End If

Me.fldBemiNrSuche.SetFocus

' Eingegebene Leerzeichen (Zeichen Nr. 32) umsetzen
If m_intkeyascii = 32 Then
Me.fldBemiNrSuche = Me.fldBemiNrSuche & Chr(32)
End If

' Wenn kein passender Datensatz gefunden wird, d.h. wenn das Formular leer ist Cursor ans Ende des Textes setzen
If Me.RecordsetClone.RecordCount = 0 Then
' Me.fldAuftragsNrSuche.SelStart = 0
' Me.fldAuftragsNrSuche.SelLength = Len("" & Me.fldAuftragsNrSuche)

' ansonsten Cursor ans Ende des eingegeben Textes setzen laut DonKarls FAQ 4.24
Else
Me.fldBemiNrSuche.SelStart = Len("" & Me.fldBemiNrSuche)
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maikek · 14. Mai 2014

Der Filter muss sich auf ein Tabellenfeld beziehen, nicht auf ein Kombifeld im Formular.
maike

Kyron9000 · 14. Mai 2014

Hallo Alf1988,

BeispielDB anbei. Da kannst so viele Suchfelder einfügen wie du benötigst,
allerdings iM nur Text.
Falls es dich interessiert und du dich nicht auskennst, oben nachlesen.
Ist natürlich wie alles "anpassbar" *Smilie

Schönen Tag!

PS: warum darf es übrigens kein Kombifeld sein mit Spaltenanzahl 1 und Spalte z.B. EinText?
Es ist nicht sinnvoll, das ist schon klar, es muss ja auch angezeigt werden im Detailbereich...
und dann, warum nicht einfach ein Textfeld verwenden... aber, grundsätzlich wäre es möglich.
Z.B. eine einfache Beurteilungseingabe wäre dann (ohne ID *Smilie ) in diesem Such-Formular mit Kombifeld leicht möglich.
War nur eine Idee und habe es versucht umzusetzen...bei mit funktioniert es, aber nicht total lange getestet!
Habe doch etwas vergessen... durch die Änderung muss das Filter löschen anders gestaltet werden...
Code:

Private Sub btnDelFilter_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag "" Then
ctl = ""
End If
Next ctl
Me.RecordSource = "qry_Suchen"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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

Endlosformular Datensätze per Textfeld filtern

Endlosformular Datensätze per Textfeld filtern

Endlosformular Datensätze per Textfeld filtern

Endlosformular Datensätze per Textfeld filtern

Endlosformular Datensätze per Textfeld filtern - Similar Threads - Endlosformular Datensätze Textfeld

Im Endlosformular aktiven Datensatz hervorheben

In Endlosformular zu Datensatz springen un markieren

Endlosformular mit Abfrage-neue Datensätze

Werte aus Endlosformular je Datensatz in Tabelle ergänzen

Endlosformular: Buttons nur für aktuellen Datensatz sichtbar

Schleife durch alle Datensätze im Endlosformular

Neuen Datensatz in Endlosformular anlegen via Button