filtreleme fonksiyonunu aşağıdaki gibi düzenleyip dener misiniz?
görüldüğü gibi sadece ilgili değerler girildiğinde alanlar kritere ekleniyor

Private Sub FILTRELE()



ilksecim = Me.ARALIK1 & Nz(Me.DEGER1, 0)

ilksecim = " and RENK_FIYATI" & Replace(ilksecim, ",", ".")

ikincisecim = Me.ARALIK2 & Nz(Me.DEGER2, 0)

ikincisecim = " and RENK_FIYATI" & Replace(ikincisecim, ",", ".")



If IsNull(Me.ARAMUSTERI) Then Mus = "" Else Mus = " and MUSTERI='" & Me.ARAMUSTERI & "'"

If IsNull(Me.ARARENKNO) Then rno = "" Else rno = " and RENK_NO='" & Me.ARARENKNO & "'"

If IsNull(Me.ARARENK) Then Rnk = "" Else Rnk = " and RENK='" & Me.ARARENK & "'"

If IsNull(Me.ARAPARABIRIMI) Then PBIRIM = "" Else PBIRIM = " and PARA_BIRIMI='" & Me.ARAPARABIRIMI & "'"

If IsNull(Me.ARALIK1) Or IsNull(Me.DEGER1) Then ilksecim = "" 'Else ilksecim = " and RENK_FIYATI" & Me.ARALIK1 & Format(Nz(Me.DEGER1, 0), "##0,00")

If IsNull(Me.ARALIK2) Or IsNull(Me.DEGER2) Then ikincisecim = "" 'Else ikincisecim = " and RENK_FIYATI" & Me.ARALIK2 & Format(Nz(Me.DEGER2, 0), "0,00")

sql = "SELECT ID, KAYIT_TARIHI AS KayıtTarihi, MUSTERI AS Müşteri, RENK_NO AS [Renk No], RENK, RENK_FIYATI AS RenkFiyatı, PARA_BIRIMI AS Birimi From RECETE_FIYATLARI "

xxx = Mus & rno & Rnk & PBIRIM & ilksecim & ikincisecim

xxx = IIf(Len(xxx & "") = 0, xxx, " where " & Mid(xxx, 5))



Me.Liste15.RowSource = Sql & xxx



Me.Liste15.Requery



End Sub