filter kontinuierlicher form mit textbox

Brauche ich, um Benutzern das filtern einer kontinuierlichen form mit Werte die Benutzer in eine textbox. Und die kontinuierliche form ist auch geschachtelt innerhalb von ein paar Ebenen der navigation Unterformulare. Das klingt einfach genug, aber alle Beispiele, die ich finden auf der web-Makros verwenden, anstelle von vba.

Ich die Struktur und schrieb eine AfterUpdate-Ereignisprozedur für ein Textfeld txtFilter wie folgt: 

Private Sub txtFilter_AfterUpdate()
    Dim filterval As String
    filterval = txtFilter.Value
    With Forms!Main!NavigationSubform.Form!NavigationSubform.Form
        .Filter = "LastName Like " & filterval
        .FilterOn = True
    End With
End Sub

Spielte ich mit einer anderen syntax, aber keiner scheint es zu funktionieren. Hier ist ein link zum download der entsprechenden Teile der Datenbank aus einer Datei-sharing-site: http://jmp.sh/v/HGctZ4Ru74vDAjzN43Wq

Kann jemand mir zeigen, wie Sie ändern diese, so dass Benutzer können das Textfeld zum filtern der kontinuierlichen form?

InformationsquelleAutor CodeMed | 2013-11-13
  1. 2

    Bekam ich es um die Arbeit mit diesem: .Filter = "LastName Like """ & filterval & """"

    Müssen die lästigen String-Bezeichner selbst für Streicher manchmal.

    Okay, Um die form zu öffnen sind keine Datensätze, und dann ziehen Sie nur die Datensätze, die Sie (oder der Benutzer) angibt, ist am einfachsten mit ein bisschen Nacharbeiten.
    (Ich würde empfehlen, Sie arbeiten mit einer Kopie und nicht Ihr original)
    1:Auf Ihre Kontinuierliche Form, entfernen Sie die Recordsource -; wir verwenden Sie Späten Bindung (Art)
    2:Dann löschen Sie den code unter dem Feld txtFilter, dann löschen Sie die box selbst.
    3:Fügen Sie ein Kombinationsfeld mit so etwas wie dies als Datenherkunft:
    SELECT DISTINCT myTable.LastName FROM myTable ORDER BY myTable.LastName; (Diese erhalten Sie eine eindeutige Liste der Nachnamen, so dass Sie wissen, wie zu buchstabieren Sie den Namen nicht nötig sein wird, plus es sichert zumindest ein Spiel)
    4:In der After-Update-Ereignis des combobox-Steuerelement, fügen Sie code wie diesen:

    Dim strSource As String
strSource = "SELECT mt.IntakeNumber, mt.ClientNumber, " & _
    "mt.LastName, mt.FirstName, mt.ConsultationDate " & _
    " FROM myTable mt " & _
    "WHERE (mt.LastName)= '" & Me.cboFilter.Value & "'"

Me.RecordSource = strSource
Me.Requery

    Natürlich müssen Sie zum ändern der Tabellen-und Feldnamen wie nötig, aber hoffentlich bekommen Sie die Idee.

    • Sie wahrscheinlich benötigen, Sternchen oder stars noch zu: Filter = "LastName Like '*" & filterval & "*'"
    • HK1 s Antwort ist besser - das wird für alle Spiele, nicht nur genau.
    • Danke. Wie bekomme ich nun es so, dass die kontinuierliche Formular kommt leer, wenn das Formular geladen ist? Es werden Zehntausende Datensätze in der zugrundeliegenden Tabelle mit Daten, und ich will nur die Nutzer zu sehen, die Teilmengen der Datensätze, die passen Kriterien eingegangen, die txtFilter Textfeld. Derzeit ist der gesamte Inhalt der Tabelle zeigen sich in den Ergebnissen, wenn das Formular geladen wird. Aber die Suche-filter arbeitet, wenn der Benutzer etwas in txtFilter
    • Bitte siehe update oben.
    • Danke. Ich werde markieren Sie diese als Antwort. Allerdings bin ich nur mit HK1 Bearbeiten Ihren Vorschlag, weil ich will, dass der code einfach zum leichteren Wartbarkeit im Laufe der Zeit.
    • Keine sorgen, bin froh, dass wir helfen konnten.

    InformationsquelleAutor craig.white
  2. 1

    Option Compare Database
Option Explicit '<- always include this!!!!!

Private Sub txtFilter_AfterUpdate()
    Dim strFilter As String

    ' only set Filter when text box contains something
    ' to search for ==> don't filter Null, empty string,
    ' or spaces
    If Len(Trim(Me.txtFilter.Value & vbNullString)) > 0 Then
        strFilter = "LastName Like '*" & _
            Replace(Me.txtFilter.Value, "'", "''") & _
            "*'"
        ' that Replace() prevents the procedure from breaking
        ' when the user enters a name with an apostrophe
        ' into the text box (O'Malley)
        Debug.Print strFilter ' see what we built, Ctrl+g
        Me.Filter = strFilter
        Me.FilterOn = True
    Else
        ' what should happen here?
        ' maybe just switch off the filter ...
        Me.FilterOn = False
    End If
End Sub
    InformationsquelleAutor HansUp
Schreibe einen Kommentar