+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme (/konu-dinamik-arama-sonrasi-acilan-listbox-excel-e-gonderme.html)
RE: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme - berduş - 07/03/2021
BasTrh1, BasTrh2 , BitTrh1, BitTrh2 metin kutuları eklenecek
RE: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme - kamil_55 - 07/03/2021
(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?
RE: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme - berduş - 07/03/2021
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
RE: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme - kamil_55 - 07/03/2021
(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.?
RE: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme - berduş - 07/03/2021
Sizin yaptığınız
DoCmd.OutputTo acQuery, "gemiler_detay_sorgu", "MicrosoftExcel(*.xls)", "", False, "", 0((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
RE: Dinamik Arama Sonrası Açılan Listbox Excel'e Gönderme - kamil_55 - 08/03/2021