Füllen Sie im Listenfeld aus einer Tabelle in vba

Ich bin die Entwicklung einer vba-form für eine Mitarbeiter-Datenbank, in, dass es eine Suche nach Kriterien für Benutzer-id und Mitarbeiter-Namen mit der userid angezeigt werden soll, in ein Listenfeld-Steuerelement, das aus einer einzigen Tabelle

Brauche ich, um ein Listenfeld zu füllen mit Wert aus einer Tabelle nach einem Wert in einem Textfeld als Suchfeld (zB: userid)

Bitte helfen Sie mir, wie dies zu tun

  • Aus den tags, das ist über den Zugang - ist das richtig? Welche Access-version? Welche Art von backend?
  • Access 2003 und access-Tabellen das back-end
  • Siehe: stackoverflow.com/questions/1123664/...
InformationsquelleAutor SmartestVEGA | 2009-07-14
  1. 2

    Frage ist schwer zu beantworten, da kommt es auf einige Dinge wie Datentypen im Feld "suchen" etc. Also diese Antwort wird vage auf einige dieser Punkte...

    First off, müssen Sie erstellen Sie Ihre listbox mit den Suchkriterien, die sich auf das Formular für die Suche Wert und die filter entsprechend.

    Tun Sie dies durch setzen der RowSource-Eigenschaft der listbox. Hier ist ein Beispiel Datensatzherkunft für ein Listenfeld, das sieht für Sie ein Textfeld auf einem Formular für dessen filter-Wert...

    SELECT tblAgencies.AgencyID, tblAgencies.OrganizationName
FROM tblAgencies
WHERE (((tblAgencies.OrganizationName) 
          Like "*" & nz([Forms]![frmMainMenu2]![txtSearchAgencies],"") & "*"))
ORDER BY tblAgencies.OrganizationName;

    Kernstück ist die Wie... line. Ein paar Dinge über Sie...beachten Sie, dass die Abfrage aussieht, die form für einige Kriterien. Sie sehen, dass in den [Forms]![frmMainMenu2]![txtSearchAgencies] - Teil der Abfrage. So gibt es eine such-textbox auf frmMainMenu2, die aufgerufen wird, txtSearchAgencies.

    Beachten Sie auch, dass ich mit NZ-Funktion, um sicherzustellen, dass der Blick auf das Textfeld gibt mindestens eine leere Zeichenfolge. Schließlich beachten Sie, dass ist der Like-operator verwendet, der mit wild cards an beiden enden, so dass der Benutzer kann einen Teil eines string.

    Schließlich...neben dem Suchfeld setzen Sie eine Befehlsschaltfläche zum ausführen der filter/Suche. Alles, was es zu tun hat, ist REQUERY das Listenfeld so...

    Mir.lstAgencies.Requery.

    Könnte man auch versuchen Requery auf das OnChange-Ereignis, das würde filter, wie Sie Art. Aber wenn Ihre Abfrage ist langsam, das kann nicht gut arbeiten.

    Seth

    • Ich würde viel wahrscheinlicher zuweisen der rowsource mit einem festverdrahteten Wert für OrganizationName. Wenn Sie auf requery, warum nicht einfach eine saubere RowSource-Eigenschaft (d.h., ohne Kontrolle, Referenzen) und nur re-ordnen Sie Sie in der gleichen Veranstaltung, die Sie würde sein erneutes Abfragen?
    • David, ich verstehe nicht, Ihre Frage...könnten Sie erklären, ein wenig. Seth
    InformationsquelleAutor Seth Spearman
  2. 0

    Lassen Sie uns sagen, Sie haben eine Tabelle "TABELLE1", und dass die Felder Benutzer-id, Mitarbeiter.
    Sollten Sie das erstellen eines Formulars mit einem Kombinationsfeld(mit Namen boxid) und Textfeld(namens EdtEmployee).
    Definieren Sie eine Datensatzherkunft den Wert der combobox wie

    SELECT table1.userid FROM table1 WHERE employee like EdtEmployee & "*";

    Definieren Sie dann eine lostfocus-Ereignis des textbox-wie dies

    Private Sub EdtEmployee_LostFocus()
 BoxId.Requery
End Sub

    Ich hoffe, das funktioniert für Sie

    InformationsquelleAutor mik
  3. 0

    Stimme ich mik.
    Ich würde nur verwenden Sie eine AfterUpdate-Ereignis anstelle von das LostFocus-das habe ich neber verwendet.

    InformationsquelleAutor Patrick Honorez
Schreibe einen Kommentar