kullanmış olduğum bu kod ile kritere göre filtreleme yapıyorum.
RENK NO kısmına renk noyu tam değilde sadece 8000 (başındaki K-'yi yazmadan) arama ya eklemek istiyorum.
like komutunu nerede ve nasıl kullanacağım acaba,
yardımcı olabilirmisiniz?
[img]
kullandığım kod:
If IsNull(Me.SUZMUSTERI) Then MADI = "[SIPARIS_LISTESI].MUSTERI" Else MADI = "'" & Me.SUZMUSTERI & "'"
If IsNull(Me.EKISLEM) Then EKIS = "[EK_ISLEMLER].EK_ISLEM_ADI" Else EKIS = "'" & Me.EKISLEM & "'"
If IsNull(Me.SUZMAMULCINSI) Then MCINSI = "[SIPARIS_LISTESI].CINSI" Else MCINSI = "'" & Me.SUZMAMULCINSI & "'"
If IsNull(Me.SUZRENKNO) Then RNO = "[SIPARIS_LISTESI].RENK_NO" Else RNO = "'" & Me.SUZRENKNO & "'"
If IsNull(Me.SUZRENK) Then RENK = "[SIPARIS_LISTESI].RENK" Else RENK = "'" & Me.SUZRENK & "'"
If IsNull(Me.SUZMUSSIPNO) Then MSIPNO = "[SIPARIS_LISTESI].SIPNO" Else MSIPNO = "'" & Me.SUZMUSSIPNO & "'"
If IsNull(Me.ILKTARIH) Then Me.ILKTARIH = Date
If IsNull(Me.SONTARIH) Then Me.SONTARIH = Date
If CDate(Me.ILKTARIH) > CDate(Me.SONTARIH) Then
Response = MsgBox("Son Tarih, İlk Tarihten Büyük Olmalıdır..", 48, "Hata!")
DoCmd.GoToControl "ILKTARIH"
Exit Sub
End If
ILKTAR = ">=#" & Month(Me.ILKTARIH) & " / " & Day(Me.ILKTARIH) & " / " & Year(Me.ILKTARIH) & "#"
SONTAR = "<=#" & Month(Me.SONTARIH) & " / " & Day(Me.SONTARIH) & " / " & Year(Me.SONTARIH) & "#"
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, SIPARIS_LISTESI.KALAN_KG, SIPARIS_LISTESI.ACIKLAMA,Yan_yana('SELECT EK_ISLEM_KISALTMA FROM EK_ISLEMLER WHERE SIPARIS_NO= ' & [SIPARISNO]) AS ekislem FROM SIPARIS_LISTESI WHERE (SIPARIS_LISTESI.TARIH" & ILKTAR & ") And (SIPARIS_LISTESI.TARIH" & SONTAR & ") AND (SIPARIS_LISTESI.MUSTERI=" & MADI & ") AND (SIPARIS_LISTESI.CINSI=" & MCINSI & ") AND (SIPARIS_LISTESI.RENK_NO=" & RNO & ") AND (SIPARIS_LISTESI.RENK=" & RENK & ") AND (SIPARIS_LISTESI.SIPNO=" & MSIPNO & ") AND (SIPARIS_LISTESI.KALAN_KG<>0)"
Me.Liste60.Requer
