(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?