Sorun cozuldu, Simdi cikan sonucu email atmayi arastiriyorum.

Option Compare Database

Private Sub btnReset_Click()
    On Error GoTo ErrorHandler
    ' Filtreyi kaldir ve tüm kayitlari göster
    Me.FilterOn = False
    Me.Requery
    ' Arama çubugunu temizle
    Me.txtSearchBar = ""
    Exit Sub

ErrorHandler:
    MsgBox "Bir hata olustu: " & Err.Description, vbExclamation, "Hata"
End Sub

Private Sub btnSearch_Click()
    On Error GoTo ErrorHandler
    Dim searchTerms As Variant
    Dim filterQuery As String
    Dim i As Integer

    ' Arama çubugu bossa tüm kayitlari göster
    If IsNull(Me.txtSearchBar) Or Trim(Me.txtSearchBar) = "" Then
        Me.FilterOn = False
        Me.Requery
        Exit Sub
    End If

    ' Virgüle göre ayrilmis fatura numaralarini al
    searchTerms = Split(Me.txtSearchBar, ",")

    ' Fatura numaralarini aramak için filtre sorgusu olustur
    For i = LBound(searchTerms) To UBound(searchTerms)
        If filterQuery <> "" Then
            filterQuery = filterQuery & " OR "
        End If
        filterQuery = filterQuery & "[InvoiceNo] = '" & Trim(searchTerms(i)) & "'"
    Next i

    ' Filtreyi uygula
    Me.Filter = filterQuery
    Me.FilterOn = True
    Exit Sub

ErrorHandler:
    MsgBox "Bir hata olustu: " & Err.Description, vbExclamation, "Hata"
End Sub