AccessTr.neT

BasTrh1, BasTrh2 , BitTrh1, BitTrh2 metin kutuları eklenecek

(07/03/2021, 20:14)berduş yazdı: [ -> ]ilgili metin kutularını ekleyip excele yollanan sorgunun kodunu aşağıdaki gibi düzenler misiniz?

SELECT vagon_arac_takip.gemi_adi, Tablo_gemiler.ozet_beyan_no, vagon_arac_takip.no_plaka, vagon_arac_takip.esya_cinsi, vagon_arac_takip.esya_adet, vagon_arac_takip.firma, vagon_arac_takip.parti_1, vagon_arac_takip.ebat_1, vagon_arac_takip.brüt_1, vagon_arac_takip.parti_2, vagon_arac_takip.ebat_2, vagon_arac_takip.brüt_2, vagon_arac_takip.parti_3, vagon_arac_takip.ebat_3, vagon_arac_takip.brüt_3, vagon_arac_takip.parti_4, vagon_arac_takip.ebat_4, vagon_arac_takip.brüt_4, vagon_arac_takip.parti_5, vagon_arac_takip.ebat_5, vagon_arac_takip.brüt_5, vagon_arac_takip.parti_6, vagon_arac_takip.ebat_6, vagon_arac_takip.brüt_6, vagon_arac_takip.parti_7, vagon_arac_takip.ebat_7, vagon_arac_takip.brüt_7, vagon_arac_takip.etiket, vagon_arac_takip.kantar, vagon_arac_takip.nakliyeci, vagon_arac_takip.sofor_adi, vagon_arac_takip.sofor_cep, vagon_arac_takip.sevk_tarihi, vagon_arac_takip.sevk_durumu, vagon_arac_takip.ortak_vagon

FROM vagon_arac_takip INNER JOIN Tablo_gemiler ON vagon_arac_takip.gemi_adi = Tablo_gemiler.gemi_adi

WHERE (((Tablo_gemiler.ozet_beyan_no) Like "*" & [Formlar]![genel_sorgu_form]![gemiara2] & "*") AND ((vagon_arac_takip.no_plaka) Like "*" & [Formlar]![genel_sorgu_form]![aracara2] & "*") AND ((vagon_arac_takip.esya_cinsi) Like "*" & [Formlar]![genel_sorgu_form]![esyaara2] & "*") AND ((vagon_arac_takip.firma) Like "*" & [Formlar]![genel_sorgu_form]![firmaara2] & "*") AND ((vagon_arac_takip.sevk_tarihi)>=IIf(IsNull([Formlar]![genel_sorgu_form]![BasTrh2]),1,[Formlar]![genel_sorgu_form]![BasTrh2]) And (vagon_arac_takip.sevk_tarihi)<=IIf(IsNull([Formlar]![genel_sorgu_form]![BitTrh2]),1000000,[Formlar]![genel_sorgu_form]![BitTrh2])));

sn Berduş epey uğraştırmışım size hakkınızı helal ediniz.
excele gönder komutundaki mevcut kod tamamen iptal mi? yoksa yukarıyı tamamen ilave mi edeceğim?

Ben temelde 2 şey yaptım
1 - tarih metin kutularını eklemek
2 - excele gönderilen sorguya tarih kriterlerini eklemek geriye kalan formdaki kodlar olduğu gibi kalacak yalnızca tarih alanlarının girileceği metin kutularının çıkıldığında olaylarına atama ve liste kutusunu yenileme kodları eklenmeli

(07/03/2021, 23:12)berduş yazdı: [ -> ]Ben temelde 2 şey yaptım
1 - tarih metin kutularını eklemek
2 - excele gönderilen sorguya tarih kriterlerini eklemek geriye kalan formdaki kodlar olduğu gibi kalacak yalnızca tarih alanlarının girileceği metin kutularının çıkıldığında olaylarına atama ve liste kutusunu yenileme kodları eklenmeli

peki formun sorgusundaki tarih sütunan bir şey eklemem gerekirmi between vs.?

Sizin yaptığınız

DoCmd.OutputTo acQuery, "gemiler_detay_sorgu", "MicrosoftExcel(*.xls)", "", False, "", 0

kodu ile gemiler_detay_sorgu sorgusunu excele yollamak yani sadece o sorguya tarih kriteri eklemeniz yeterli benim yaptığım da bundan ibaret sizin sorgunuza ekledigim
((vagon_arac_takip.sevk_tarihi)>=IIf(IsNull([Formlar]![genel_sorgu_form]![BasTrh2]),1,[Formlar]![genel_sorgu_form]![BasTrh2]) And (vagon_arac_takip.sevk_tarihi)<=IIf(IsNull([Formlar]![genel_sorgu_form]![BitTrh2]),1000000,[Formlar]![genel_sorgu_form]![BitTrh2])) satırı tarih süzmek için
Siz 2 tane tarih türünde metin kutusu ekleyip çıkıldığında olaylarina diğer kriterlerde yaptığınızı yapmanız yeterli

[/img]