(10/12/2021, 00:28)berduş yazdı: If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'" yerine
If IsNull(Me.ARAMUSTERI) Then MUS = "" Else MUS = " and [RECETE_FIYATLARI].MUSTERI='" & Me.ARAMUSTERI & "'" gibi bir yöntem daha uygun olur
bu durumda
xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI" & Me.ARALIK1 & Format(Nz(Me.DEGER1, 0), "0,00") & ") kodu yerine

xxx = mus & RNO ......
if len(xxx & "")>0 then xxx=" where " & mid(xxx,4) gibi kullanılabilir

sn üstad, bu haliyle çözüldü, belirttiğim aralıkta filtreleme yapıyor,

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

ilksecim = Replace(ilksecim, ",", ".")

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

ikincisecim = Replace(ikincisecim, ",", ".")





If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'"

If IsNull(Me.ARARENKNO) Then RNO = "[RECETE_FIYATLARI].RENK_NO" Else RNO = "'" & Me.ARARENKNO & "'"

If IsNull(Me.ARARENK) Then RNK = "[RECETE_FIYATLARI].RENK" Else RNK = "'" & Me.ARARENK & "'"

If IsNull(Me.ARAPARABIRIMI) Then PBIRIM = "[RECETE_FIYATLARI].PARA_BIRIMI" Else PBIRIM = "'" & Me.ARAPARABIRIMI & "'"





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

xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI " & ilksecim & ") AND (RECETE_FIYATLARI.RENK_FIYATI " & ikincisecim & ")"

Debug.Print Sql & xxx

Me.Liste15.RowSource = Sql & xxx



Me.Liste15.Requery