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