ACCESS ~ SQL
[SORGU] sorgu yardımı - Yazdırılabilir Sürüm

+- ACCESS ~ SQL (http://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (/Forum-ACCESS-SORULARI)
+--- Konu: [SORGU] sorgu yardımı (/Konu-sorgu-yardimi)

1 2 3


sorgu yardımı - husem - 10-01-2017 23:35

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;


Cvp: sorgu yardımı - dsezgin - 11-01-2017 00:32

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.


Cvp: sorgu yardımı - husem - 11-01-2017 22:53

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.


Cvp: sorgu yardımı - dayday - 12-01-2017 00:05

http://www.access-sql.com/Konu-Bolum-5-Listedeki-Verileri-Filtreleme-ve-Rapora-Aktarma

inceleyiniz..


Cvp: sorgu yardımı - husem - 12-01-2017 01:19

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


Cvp: sorgu yardımı - dsezgin - 12-01-2017 01:35

[attachment=19662] form renkli bolumler veri suzmekte, inceleyiniz.