merhaba arkadaşlar,
programımda eklediğim sipariş izleme ekranında kullandığım sorgu aşağıda yazılı,
bu sorguda müşteri, partino, renk no gibi kriterlere göre arama yapabilmek istiyorum,

sipariş izleme formu üzerinde MÜŞTERİ, PARTİ NO VE RENK NO listboxları var.

aramayı
nasıl yapabilirim acaba


SELECT SIPARIS_LISTESI.MUSTERI, PARTILENENLER.PARTI_NO, PARTILENENLER_DURUM.TARIH, SIPARIS_LISTESI.SIPNO, SIPARIS_LISTESI.RENK_NO, SIPARIS_LISTESI.RENK, SIPARIS_LISTESI.EBAT, PARTILENENLER.PAR_KG, PARTILENENLER_DURUM.MAK_NO, PARTILENENLER_DURUM.MAK_SIRA_NO, PARTILENENLER_DURUM.DURUMU, PARTILENENLER_DURUM.DURUM_ZAMANI FROM (SIPARIS_LISTESI INNER JOIN PARTILENENLER ON SIPARIS_LISTESI.SIPARISNO = PARTILENENLER.SIPARIS_NO) INNER JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO WHERE ((([PAR_KG]-[SEVK_KG])<>0)) ORDER BY PARTILENENLER.PARTI_NO, PARTILENENLER_DURUM.TARIH;

Sn Husem;
formda ki SUZ butonu calisiyor diye hatirliyorum.

MÜŞTERİ, PARTİ NO VE RENK NO listboxları var.

SELECT ... WHERE (
((MUSTERI)=" & MÜŞTERİ & ") And
((PARTI_NO)=" & [PARTİ NO] & ") And
((RENK_NO)=" & [RENK NO] & ")
) .......

Renkli bolumu VBA da for dongusu ile yapilabilir.

Sub ARA()
Dim Ctl as control, Komut as string
for each ctl in me.controls
if ctl.tag="BosDolu" And ctl<>"" then
Komut=Komut & "(([" & iif(mid(ctl.name,1,1)="P","PARTİ NO", iif(mid(ctl.name,1,1)="M","MUSTERI","RENK NO")) & "])=" & iif(mid(ctl.name,1,1)="P","[PARTİ NO], iif(mid(ctl.name,1,1)="M",[MÜŞTERİ],[RENK NO])) & " And "
next ctl
if komut<>"" then komut=mid(komut,1,len(komut)-5) else komut=""
me.list.rowsource="Select......" & komut & "......."
veya
me.recordsource="Select......" & komut & "......."
me.list.requery
end sub

prosedurunu MÜŞTERİ, PARTİ NO VE RENK NO listbox guncelleme olay yordamina call ARA olarak sonuc alinabilir.

sn dsezgin, ilginiz için teşekkür ederim,
ben bahsettiğiniz şekilde yapmaya çalıştım fakat olmadı,
dosyamı ekledim, ilgili dosya üzerinden yardımcı olabilirmisiniz acaba, teşekkür ederim,
iyi çalışmalar.

http://www.access-sql.com/Konu-Bolum-5-L...ra-Aktarma

inceleyiniz..

TEŞEKKÜR EDERİM, KAYNAK ÇALIŞMAMDA YARDIMCI OLACAK.

  HusemSuz.rar (Boyut: 51,05 KB / İndirilme: 103) form renkli bolumler veri suzmekte, inceleyiniz.