If IsNull(Me.SUZRENKNO) Then RNO = Null Else RNO = Me.SUZRENKNO

------------renk numarası kısmı boş olduğunda tüm verileri göstermesi için üst kısımdaki kırmızı alanı null yaptım, 
şuan sorgu çalışıyor,


KOŞUL = " WHERE (SIPARIS_LISTESI.RENK_NO like '*" & RNO & "*')"
Me.Liste60.RowSource = "SELECT SIPARIS_LISTESI.ID, SIPARIS_LISTESI.SIPARISNO, SIPARIS_LISTESI.TARIH, SIPARIS_LISTESI.MUSTERI, SIPARIS_LISTESI.IRSALIYE_NO, SIPARIS_LISTESI.SIPNO, SIPARIS_LISTESI.EBAT, SIPARIS_LISTESI.DESEN_ADI, SIPARIS_LISTESI.CINSI, SIPARIS_LISTESI.RENK_NO, SIPARIS_LISTESI.RENK, SIPARIS_LISTESI.TOP_METRE FROM SIPARIS_LISTESI" & KOŞUL

Me.Liste60.Requery


ilgilenen arkadaşlara çok teşekkürler,
iyi çalışmalar dilerim