Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Access => Thema gestartet von: curich am September 01, 2014, 11:11:59 Vormittag

Titel: Office 2007: Suche über Textfeld
Beitrag von: curich am September 01, 2014, 11:11:59 Vormittag

Hallo!

Ich bin noch ziemlich unerfahren im Umgang mit Access.

Für eine Datenbank möchte ich ein Suchformular erstellen.

Ich habe mir dazu gedacht, dass ich ein Formular erstelle, in dem mehrere Textfelder, ein Listenfeld und ein Commandbutton enthalten sind. In das jeweilige Textfeld kann dann ein Suchbegriff, bspw. "Ford" für eine Suche nach Hersteller eingegeben werden. Über den Commandbutton werden dann im Listenfeld die zugehörigen Fabrikate angegeben.
Das habe ich mit folgendem Code versucht:


   

Code: [Auswählen]

Option Compare Database
    Option Explicit

    Private Sub cmdStartsuche_click()

    Dim strSQL As String

    strSQL = "SELECT obj_id, obj_fabrikat " & _
             "FROM   tblObjekte " & _
             "WHERE  obj_Hersteller = '" & Me!txtHerstSuche & "'"
             
    Me!lstErgebnisse.RowSourceType = "Table/Query"
    Me!lstErgebnisse.RowSource = strSQL

    End Sub

Allerdings wird mir dann leider gar nichts angezeigt. Kann mir jemand sagen, ob ich einen Fehler begangen habe, oder mein Vorhaben auf diese Weise überhaupt Sinn ergibt, bzw. ich einen ganz anderen Weg einschlagen muss?
Ich habe schon in diesem und diversen anderen Foren nach Lösungen gesucht, aber keine Lösung für mein Problem finden können.

Vielen Dank im Voraus!

Titel: Antw:Office 2007: Suche über Textfeld
Beitrag von: gmg-cc am September 21, 2014, 14:13:44 Nachmittag

Moin,

probiere doch einmal dieses:

Code: [Auswählen]

strSQL = "SELECT obj_id, obj_fabrikat " & _
             "FROM   tblObjekte " & _
             "WHERE  obj_Hersteller = " & Me!txtHerstSuchealso ohne die einfachen Anführungszeichen in der 3. Zeile.