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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla