Private Sub Eingabe_TF_KeyUp(KeyCode As Integer, Shift As Integer)
 
subFilter Eingabe_TF.Text
 
End Sub
 
Public Sub subFilter(ByVal sEing As String)
    Dim sql As String
    Dim DB As DAO.Database
    Dim i As Integer
 
    If Trim(sEing) = "" Then Exit Sub
 
    i = Forms!F_Komponentendetail.Filterwahl_LF.ItemsSelected(0)
 
 
 
        If i = 0 Then
            sql = "SELECT * FROM Datenbank WHERE ((Datenbank.[TT-Nr]) LIKE '" & _
              sEing & "*') ORDER BY Datenbank.[TT-Nr];"
 
            Set DB = CurrentDb
            DB.QueryDefs("A_Komponentendetail").sql = sql
            Set DB = Nothing
 
        ElseIf i = 1 Then
            sql = "SELECT * FROM Datenbank WHERE ((Datenbank.[Referenztest])" & _
              "LIKE '" & sEing & "*') ORDER BY Datenbank.[Referenztest];"
 
            Set DB = CurrentDb
            DB.QueryDefs("A_Komponentendetail").sql = sql
            Set DB = Nothing
        End If
 
End Sub