Public Function fcFilter()
    Dim sql As String
    Dim eing As String
    Dim DB As DAO.Database
    Dim i As Integer
    Dim s As String
 
    i = Forms!F_Komponentendetail.Filterwahl_LF.ItemsSelected(0)
 
    If IsNull(Forms!F_Komponentendetail.Eingabe_TF) Then
    Else
 
        eing = Forms!F_Komponentendetail.Eingabe_TF
 
        If i = 0 Then
            sql = "SELECT * FROM Datenbank WHERE ((Datenbank.[TT-Nr]) LIKE '" & _
              eing & "*') 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 '" & eing & "*') ORDER BY Datenbank.[Referenztest];"
 
            Set DB = CurrentDb
            DB.QueryDefs("A_Komponentendetail").sql = sql
            Set DB = Nothing
        End If
    End If
 
End Function