datensatz per textfeld suchen und in einem listenfeld anzeigen

[Lady-L]

hallo leute,

habe ein kleines problem was ich einfach nicht lösen kann. es ist wahrscheinlich nur eine kleinigkeit. und zwar habe ich ein formular indem ein listenfeld "lst_bestand" enthalten ist dass seine daten von einer tabelle nimmt. nun habe ich eine suchfunktion wo ich den suchbegriff in ein textfeld "tf_artNr_suchen" eingebe und mit einem button "btn_suchen" nach 2 feldern suchen möchte, nach ArtikelNr u. FgNr (möchte ich zumindest so). kann aber leider nur jeweils nach einem feld suchen. was muss ich tun damit er nach den 2 gewünschten feldern sucht?

hier mal mein code:

Private Sub btn_suchen_Click() 
    Dim strSQLArtNr As String 
    Dim strSQLFgNr As String 
    
    'nach ArtikelNr und Fgnr suchen 
    strSQLArtNr = "SELECT RNr, ArtikelNr, FgNr, Typ, Menge, Datum, Art, " & _ 
                         "Artikelbezeichnung, Preis " & _ 
                         "FROM Bestand " & _ 
                         "WHERE ArtikelNr = '" & Me!tf_artNr_suchen & "'" 
    strSQLFgNr = "SELECT RNr, ArtikelNr, FgNr, Typ, Menge, Datum, Art, " & _ 
                        "Artikelbezeichnung, Preis " & _ 
                        "FROM Bestand " & _ 
                        "WHERE FgNr = '" & Me!tf_artNr_suchen & "'" 
    Me!lst_Bestand.RowSource = strSQLArtNr 
    Me!lst_Bestand.RowSource = strSQLFgNr 
    Me!lst_Bestand.Requery 
    If Me!lst_Bestand.ListCount = 0 Then 
        MsgBox "Keine Treffer!" 
    End If 
End Sub

hoffe einer hat rat, bin wirklich schon am verzweifeln weil ich da schon seit stunden hänge....

[O. Helper]

Hallo Lady-L,

Me!lst_Bestand.RowSource = strSQLArtNr
Me!lst_Bestand.RowSource = strSQLFgNr

Was den nun, das eine oder das andere?
So führt er immer nur die letzte Abfrage aus und da nach dem tf_artNr_suchen im Feld "FgNr" gesucht wird, dürfte nichts sinniges herauskommen.
Wenn Du nach mehreren Felder selektieren willst, muss Du es im SQL kombinieren (mit AND / OR usw.)

Z.B.
[highlight=CODE]strSQLFgNr = "SELECT RNr, ArtikelNr, FgNr, Typ, Menge, Datum, Art, " & _
"Artikelbezeichnung, Preis " & _
"FROM Bestand " & _
"WHERE ArtikelNr = '" & Me!tf_artNr_suchen & "' " & _
"AND FgNr = '" & Me.tf_FgNr_suchen & "'"
[/highlight]